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I. INTRODUCTION 


The primary goal of the combat direction center is to ensure the individual fighting 
capabilities of a single ship. Each ship, however, not only supports the task force, but 
enhances it to make the task force a single fighting element capable of overcoming any 
enemy. The Navy has met the challenge of the 1990’s with the development and 
implementation of the AEGIS System. Combatants without this AEGIS capabilities are 
being upgraded to meet these standards and capabilities when and where it is possible. In 
some cases this is impossible, for instance, most non-combatants at present have no 
automated capabilities whatsoever. The Navy had the choice of either starting from scratch 
and fitting these ships from ground up or developing a new system that was capable of 
meeting specific requirements, still holding the cost of development and implementation to 
an affordable level. The Navy has projected its desire to develop a system that can be 
installed on non combatant ships or to augment existing systems on Combat Direction 
System(CDS) equipment ships. This implementation would be accomplished in Ada and 
would reflect the specifics of five increments as detailed in Reference 1. The introduction 
of the Low Cost Combat Directions System (LCCDS) [Ref. 1, 2] into the field of research 
and development launched the need for a new look at the way Combat Direction Systems 
function. 

The increased complexity of warfare in this decade and the next requires a system 
capable of timely response and rapid recovery. The LCCDS, a Real Time System, will meet 
this challenge. Receiving data from a number of sensors, the system will process raw data 
into formatted information which is both displayed and stored in the database for future 
recovery and use. Utilizing the Global Positioning System (GPS) the LCCDS will 
continuously monitor and update ownship position. Receive only link 11 provides a tactical 


picture of the ship’s environment. Equally significant is the user interface, which provides 


a variety of inputs from the operator and creating a well balanced, functional, and 
informative system capable of handling the most critical situation. 

The LCCDS system will be implemented on a commercially available 
microprocessor-based workstation. Selection of a microprocessor is relatively straight 
forward. 

1. The system must meet the NAVSEA requirements for shipboard use. 

2. It must be capable of handling our software requirements. 

The Sun Microsystems SPARCstation 2 will provide the eabepieee required for the 
shipboard and real time environment of the LCCDS. The 4.2 BSD UNIX operating system 
has been suggested [Ref. 3] and meets the requirements necessary to manage the Verdix 
Ada software development system. Verdix Ada will be the implementation language for the 
Low Cost Combat Direction Software System. The integration must accomplish an 
interface between existing shipboard navigation sensors, link 11, and the object oriented 
database management system. These interface points with navigation and link 11 are not 
interactive, and allow the integration system only to receive data. The user interface will 
receive data from the integration system while the database will support both retrieval and 
storage of data via the integration system. 

The LCCDS will accomplish all these tasks plus several additional services in just 
seconds vice minutes and with a much greater accuracy and reliability than manual 
methods. This capability is made possible by the careful selection of a powerful, 
inexpensive microprocessor workstation. One of the projected users of the LCCDS is on 
board ships without Naval Tactical Data System(NTDS), where at present handling of 
combat support is accomplished manually, using only maneuvering board and status boards 
kept updated by individual watch standers. The addition of the LCCDS to one of these 
platforms would leave the Commanding Officer and his watch standers free to accomplish 


their mission in a more accurate, safe, and expedient manner. 


The integration system is a vital element(module) of the Low Cost Combat Direction 
System(LCCDS) project which is sponsored by Naval Sea Systems Command(NAVSEA). 
The LCCDS project is currently divided into three major research and development areas. 

1. The integration system, whose primary function is confining and filtering 
information from several sources, including ownship sensors, Global Positioning System 
and receive only link 11. To monitor this information and detect impending significant 
events, such as closest point approach of other vessels, shoals, aircraft fly over, and 
navigation hazards. To provide, to the user, a means of continuous access to necessary 
navigation data, such as ownship fix information, position of intended movement, and 
waypoint locations. To provide an archival record of the available tactical information for 
both immediate and historical use. 

2. The user interface module, which provides the user with onscreen visual elements 
to provide tactical information in an effective form and enables the user to manage the 
LCCDS. The user interface receives track information, and environmental information 
requested from the integration system. 

3. The navigation system of the LCCDS, which will provide ownship navigation and 
maneuvering data. 

The objective of this thesis is to describe the research and development of the 
integration system for the LCCDS. In conjunction with the development, a design and 
implementation phase for the integration system as a part of the LCCDS is discussed. A 
prototype of the integration system with full details on integrating the user interface, the 
navigation system, and an object oriented database is implemented in Ada. The integration 
system meets all the requirements of a real time systems as required in the design 


specifications [Ref. 1]. 


A. HISTORICAL BACKGROUND OF THE LCCDS 


The traditional or conceptual meaning of a ship’s combat system is typically the men 
and equipment which provide the ship with its offense and defense capabilities. However, 
some subsystems such as communication and navigation are not in the spotlight as often as 
the weapons system. Both subsystems accomplish their mission in a routine manner and 
unless disabled or inoperative are forgotten or de-emphasized when combat systems are 
discussed. These systems, which provide the eyes and ears for the ship, play an equally 
important role in the ship’s overall combat system. It is the composite of the ship’s elements 
and personnel processing either manual or automated information and providing support to 
the overall task/mission of the platform that is important. During the late 1950’s and since 
the Naval Tactical Data System (NTDS) has played the role of tactical data integration. 
Since its evolution out of a need for faster and more accurate information NTDS has been 
plagued with restrictions and hang-ups. As technology increased, the need to improve the 
system increased, yet many of the outdated systems were not replaced, and heavy 
requirements for manual intervention and control continued to slow and restrict the system. 
Uncoordinated changes in the interfacing system and weapons systems cause a make shift 
and continuous catch up mode. 

Today we have several different generations of these modified/improved systems in 
the fleet [Ref. 4]. Ongoing study and thirty years of experience has caused the development 
and deployment of the Combat Direction System which is not totally separated from, but 
has substantial increases in capabilities over the NTDS. The role of the Combat Direction 
System is composed as follows [Ref. 5]. 

1. An automated Database Management System capable of managing tactically 


significant tracks. 


2. A combination of necessary element to form a combat system whose primary 


purpose is to support the combat direction center. 


B. PROJECT ORGANIZATION AND GOALS 


The Low Cost Combat Direction System research and development is under the 
supervision of the Naval Sea Systems Command. Research is ongoing at the Naval Post 
Graduate School, Monterey, CA., Naval Ocean Systems Command, San Diego, CA., and 


Massachusetts Institute of Technology, Cambridge, MA. 






Comm 
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Figure 1 : LCCDS CONFIGURATION DIAGRAM 


The LCCDS project as shown in Figure 1, 1s divided into three basic areas of 
development: 

1. The hardware evaluation and procurement. 

2. The development of the software packages. 

3. Testing and evaluation for Real Time performance 

The integration system Project, an element in areas 2 and 3 of the LCCDS, is divided 
into four major areas of research and development. 

1. A system capable of providing an interface with the user, developing an interactive 
communication between user and system. 

2. A system capable of interfacing with the navigation system and providing ownship 
navigation data. 

3. A system capable of interfacing with Link 11 receive only and providing for display 
network track data. 

4. A system capable of data storage and retrieval utilizing data received from sensor 
interfaces, and direct input from the user. 

The project sponsor goals for the LCCDS integration system are as follows: 

1. Locate, evaluate, and procure the hardware necessary to meet the shipboard 
requirements. 

2. Use Ada as the implementation language. 

3. Integrate an object-oriented Database Management System. 

4. Integrate a manual tracking and identification capability. 

>. Integrate a receive only link 11 capability. 

6. Integrate an on ship navigation and maneuvering capability, along with display of 
shore line maps. 

7. Integrate an autotracking capability [Enclosure 1, Ref. 1] 


8. Test, evaluate, and employ the system. 


The detailed initial problem statement can be defined in terms of a high level LCCDS 
program description. Develop the prototype of a Low Cost Combat Direction SoftWare 
System (LCCDS WS) for a Low Cost Combat Direction System (LCCDS) that implements 
the basic features of Combat Direction System “Model 5’on a commercially available 
microprocessor based workstation [Ref. 1,2,3]. This is to be accomplished in respect to the 
five increments as outlined in Enclosure 1 Reference 1. Based on these guidelines this 
phase of the research must then start at the beginning, laying into place each part of the 
puzzle, with a focus on ensuring that no piece will place a constraint on any other piece. In 
fact, our goal is that each piece will enhance all the remaining pieces. To start, we had to 
select a system and the software environment for the system. The next steps are to define 
the requirements for the integration system, write the functional specifications linking the 
user interface and navigation modules, then implement the above in Ada. 

In order for the integration system to meet these requirements, specific goal 
definitions for the integration system have been established. 

Goal 1. The integration system must provide a track database system, which is capable 

of accessing and updating track information in Real_ Time. 

Goal 2. The integration system must be able to parse incoming Global Positioning 

System(GPS) data and extract track/ownship location data in Real_Time. 

Goal 3. The integration system must be able to parse incoming link 11 messages and 

extract track data in Real_Time. 

Goal 4. The integration system must be able to parse incoming sensor related 

messages and extract track data in Real_Time. 

Goal 5. The integration system must be able to provide the user with relevant tactical 

data external to the platform, for screen display. 

Goal 6. The integration system must be able to provide the user with the ability to 


customize and organize data to meet the specific needs of the individual platform. 


Goal 7. The integration system must be able to provide the user with the ability to limit 

the number of tracks and/or elements for display. Any or all of this data must be 

available for retrieval and display. The user will by means of a filter package 

communicate to the integration system what is to be displayed. 

Goal 8. The integration system must be able to provide the user with the ability to 

store, manage, and display geographical regions, paths, and waypoints to meet the 

specific needs of the user. 

Goal 9. The integration system must be able to provide the user with ownship data to 

include closest point of approach(CPA) time, bearing, and range. CPA data provided 

may be between any track and ownship or between any two tracks, and must be in 

Real_Time. 

LT Bolick focused on requirements analysis, system specifications and the overall 
system design constraints. LT Irwin concentrated on the development of the software 
components. Both contributed to the system architectural analysis, software development, 


implementation and design. 


C. SOFTWARE ENGINEERING APPROACH. 


The software development process has been defined by several different and capable 
authorities as having different and varied meanings. Yet all seen to agree on some specific 
points. The first and most overwhelming point is that when starting a project, the specific 
requirements must first be defined, researched and redefined. The second point is, that a set 
of specifications must be developed and a design architecture presented before proceeding 
with development of the project. Following these well established guidelines [Ref. 7]the 
model for the LCCDS integration system was developed. 

1. Requirements analysis [Ref. 3]. 


2. Functional specifications. 


3. Architectural design. 

4. Implementation. 

5. Testing and Evaluation. 

The first state in the LCCDS design, the requirements analysis, has been accomplished 
by the team of Seveney and Steinberg [Ref. 3]. It is our intention, however, to refine these 
broad requirements to more specific ones directly related to the integration system. At this 
point we focus on the initial problem statement: The thrust of this research is to provide 
detailed requirement analysis for the software portion of the LCCDS. We refer to this as 
the Low Cost Combat Direction Software System (LCCDSWS). 

The Department of Defense(DOD) and Navy have taken great care in the development 
of specific guidelines for the design and implementation of software to be used by DOD. 
Directives to be considered in the integration system software require effort to be placed in: 

1. Accomplishing the task (completion of the integration system). 

2. Completion in a timely manner. 

3. Completion at no significant additional cost to sponsor. 

4. Producing a top quality product. 

Using the spiral model of software development the following sequence of events have 
been established for the LCCDS integration system design, review, and acceptance. 

1. Review and evaluation of requirements specified by the sponsor(NA VSEA). 

2. Review and evaluation of requirements document (Masters Thesis by Seveney and 

Steinberg) to determine if there exist conflicts with the NAVSEA requirements. 

3. Requirements Analysis Review(RAR) and consistent needs identified. 

4. Needs analysis and new needs identified. 

5. Completion of specifications with a review and evaluation of requirements and any 

new needs are identified. 


6. Functionality review for first design. 


7. Design review and reevaluation of needs and requirements. If necessary, apply 

changes to design. 

8. Design accomplished with testing in progress. Review for requirements and needs 

by sponsor. Changes due to requirements and needs identified are applied at this time. 

Bugs are removed from software. Complete code review and code documentation. 

Module testing accomplished. 

9. Design complete and ongoing testing and evaluation standards. Implementation of 

a working prototype. Complete system testing with independent quality assurance 

verification. 

10. Delivery to sponsor, and ongoing maintenance and upgrade. (debugging in 

progress). 

Research and design of the integration system conforms with the following DOD and 
Navy directives. 

1. Department of Defense Military Standard 2167-A Defense System Software 

Development [Ref. 25]. 

2. Department of Defense Military Standard 2168 Defense System Software Quality 

Program [Ref. 26]. 

3. American National Standard Institute Military Standard 1815A-1983 Reference 

Manual for the Ada Programming Language [Ref. 27]. 

4. DOD-STD_480, Configuration Control_Engineering changes, Deviations, and 

waiver [Ref. 28]. 

5. MIL-STD-483, 

6. MIL-STD-490, Specification Practices [Ref. 30]. 

7. MIL-STD-1388, Logistic Support Analysis 

The following Data Item Description(DID): 

1. DI-MCCR-80012, Software Design Document 
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2. DI-MCCR-80014, Software Test Plan 

3. DI-MCCR-80017, Software Test Report 

4. DI-MCCR-80025A, Software Requirements Specification 

5. DI-MCCR-80026, Interface Requirements Specification 

Data Item Description, DI-MCCR-80025A, Software Requirements Specification, 
specifies the engineering and qualification requirements for a computer software 
configuration item (CSCI). As the basis for the design, format, data generation, and formal 
testing of this software project, our team of designers, used the Software Requirements 


Specification noted above. 


Il. INTEGRATION SYSTEM RESEARCH ANALYSIS 


A. REQUIREMENTS FOR LCCDS. 
The initial problem statement can best be stated by paraphrasing the Enclosure 1 to 
Reference 1, “Statement of work for Low Cost Combat Direction System (LCCDS)” 


which outlines the five increments that the LCCDS project is to be divided. 


In increment one: 

1. A computer system is to be selected 

2. Design and develop an object-oriented Database Management System. 

3. Design and develop a display/graphics, which provides the user with his own 
customized screen format allowing interactive operations with the system. 

4. Display tracks and ownership data. 


5. General response time to user “should be no greater that one half second”. 


In increment two: 

1. Integrate manual tracking and track identification capability. 

2. System maintains ownership track. 

3. Use standard display symbols as list in Reference 1. 

4. Display and assign speed and bearing as both values and leaders, with four second 
updates on all elements of the each track in the database. 

5. Allow for additional/amplifying track information to be displayed at the users 
request. 

6. Allow the user to change track identification number, category, and identity. 


7. Allow for a unlimited number of tracks in the system. 


eZ 


In increment three: 


1. Integrate receive only link 11. 


In increment four: 

1. Provide ownship data. Navigation and maneuvering data from ownership sensors. 
2. Provide up to six steaming routes. 

3. Provide up to 50 waypoints per steaming routes. 

4. Provide closest point approach data. 

a. Provide ownship CPA with any track. 

b. Provide CPA between any two tracks. 


c. Provide display of CPA bearing lines on position display. 


In increment five: 


1. Integrate an organic auto tracking capability using (TBD) radar interface. 


Issues in achieving common operations for Combat Direction Systems was addressed 
in accordance with the guidelines of Reference 2. The specific concerns faced by this 
research study and the issue we considered most important is safeguarding consistency, 
while preserving independent configurations for each user. A list of considerations by 


which to achieve this concerns are listed below. 


1. What track characteristics should be specified in statements. Should the track follow 
the basic NTDS format. 
2. What actions should the system take in the event of malfunction or error detected 


and what actions are left to the user. 
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3. Which of the common display and control formats of the model 5 Combat Direction 

System should be used. 

4. What safeguards should be built into the system, more specifically the integration 

system, to insure consistent operations. 

5. What accuracy and precision of track data is required. 

Communications between the integration system and the elements of the LCCDS is a 
critical link in considering development of a Real_Time system. There cannot be any delay 
in the system functions due to restrictions in the communications media. Therefore care and 
time was used in the selection and implementation of the communication software interface 
between the three elements user interface, Link 11, navigation interface, and the integration 
system as seen in Figure 2. 

It is important to keep these requirements in mind, not allowing them to drive the 
research, but to provide some guidelines and restrictive boundaries within which to 


work.These questions and more are addressed and answered in this research. 


AUIS Te GPS 






SENSORS 


INPUT DATA IS RECIEVE ONLY 
Figure 2: NON-NTDS PLATFORM 
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B. LOW COST COMBAT DIRECTION SYSTEM CONTEXT DIAGRAM: 


The integration system is divided into four major areas of research and development 
as seen in Figure 3. A complete discussion of each of these areas will be given later in this 


document. 


User 
Interface 






Link 11 Integration Navigation 
Interface System System 


Ships 
Sensors 





Figure 3 : LCCDS CONTEXT DIAGRAM 
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C. REQUIREMENTS FOR THE INTEGRATION SYSTEM 

The requirements for the integration system appeared straightforward at first, but on 
closer examination we soon discovered that each of the more general requirements as 
outlined by Reference 1, Enclosure! must be expanded to meet our specific needs. Listed 


below are the general requirements: 


1. Use Ada as the implementation language. 

2. Integrate an object-oriented Database Management System. 

3. Integrate a manual tracking and identification capability. 

4. Integrate a receive only link 11 capability. 

5. Integrate an on ship navigation and maneuvering capability, along with display of 
shoreline maps. 


6. Integrate an autotracking capability [Enclosure 1 of Ref. 1]. 


Expansion of these requirements is interlocked with the general design of the complete 
LCCDS. We began by looking at the qualities of Ada as the implementation language. 
Because of the Real_Time requirement for the LCCDS, parallel processing is a must. 

The basic design feature of the Ada language is centered around the use of “Objects” 
for program design. An object is a data structure consisting of a unique identifier and an 
associated set of functions and procedures that operate on the object. This meaning of the 
term object may not be universally agreed upon, but it is our working definition, and will 
be used throughout the design of the integration system. These operators are the only 
allowed means of manipulating the object. A number of advantages follow from this design 
approach. Objects and their associated functions and procedures form a natural boundary 


along which to subdivide the integration system. Because the structure of a data type is 
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hidden from all but its associated operators, changes to the structure have a limited impact 
on the overall system. This feature greatly simplifies program modification and 
maintenance. 

Ada provides a construct called a “Package” that allows the programmer to 
encapsulate objects and their associated functions and procedures. In addition, it allows for 
“private” types and “limited” private types that further restrict encapsulation so that objects 
of these types, while visible to the program parts, can only be manipulated by the functions 
and procedures it has referenced. A combination of these features permit the programmer 
to hide data structure implementation and create “abstract” data types. The use of the 
attribute private means that the programmer cannot use any knowledge of how the data type 
is to be implemented in the integration system. This allows for user changes in the basic 
features of the LCCDS but maintaining the integrity of the integration system. The 
integration system will take full advantage of each of these features. 

Ada provides a “Task” construct, which is a feature that allows the programmer to 
divide a program into logically concurrent operations with synchronization between each 
or all of the operations. In addition to forming the basis for Real-Time operations, Tasks 
also provide a means of increasing processing efficiency in a parallel processor 
environment like the integration system for the LCCDS. Like packages, the task has a 
specification part and a body, however, the specification part is used solely to declare the 
synchronization point or entry point to the task. The entry point is used to indicate where 
the message 1s received or transmitted by the task. 

The discussion of Ada packages and tasks would not be complete without an 
explanation of the Ada features “with” and “use”. The with and use clauses are the 
mechanism by which the integration system environment is made available to all the 
elements contained within. The with clause tells the compiler that the programmer intends 


to use data types, procedures, and functions defined somewhere in the package specified. 


ily 


The use clause tells the compiler that the programmer desires to reference the data types, 
procedures, and functions located somewhere in the package specified. 

The use of data abstraction provides for the integration system several advantages: 

1. A clearer conceptualizing of the problem or procedure being written and 
incorporated into the integration system. 

2. More reliable data secunity. 

3. A more reliable means of avoiding side effects. 

4. Easier modification of the implementation as changes or updates occur. 

Making use of or reuse of algorithms that have been implemented previously is a 
major advantage of program abstraction. Another advantage of this programming style is 
that it can be modeled more readily using mathematical techniques, thus opening up greater 
possibilities for correctness proof methods. Correctness proof is a major concern of the 
integration system since lives will depend on its effectiveness and precision. 

The Ada language provides high level facilities for expressing concurrent algorithms 
parallel processes. These facilities are tasks, and along with subprograms, packages, and 
generic units, they constitute the physical unit make up of which our programs will be 
composed. Synchronization between any two of these task occurs when the task issuing an 
ENTRY call and the task ACCEPTING an entry call establish a rendezvous. The two tasks 
communicate with each other in both directions during this rendezvous. 

Several task can rendezvous with each other, in groups of two or more, at any instant. 
If several tasks need to rendezvous with the same task, then these entry calls are placed in 
a queue associated with the entry and accepted in first in-first out order. By this method 
careful control of the tasks and their order of execution can be artificially established. By 
this method also we can set a system of priorities without using the Ada task specification 


“priority”. 
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Deadlock is a concern: NO DEADLOCKS is a requirement for the integration system. 
Therefore it is absolutely essential to build deadlock prevention into the system. This idea 
is one that draws a large amount of concern and articles written on the subject. There are 
two basic fields of belief in the area, one is that deadlocks cannot be prevented and must be 
handled when they occur. The other is that deadlocks can be prevented and with careful 
planning and design, and that prevention is preferable to control. In our case, if a task(one) 
makes an entry call to a task(two) that is in the entry call queue of a task(three), which is in 
the entry queue of task(one), then deadlock occurs. The design of the system is such that 
this situation does not occur. Clearly, we have chosen to handle deadlocks by prevention, 
but have also considered controls and exceptions if the situation arises. Other methods and 
controls will be discussed later in the document. Research on formal methods and tools to 
ensure that designs are free from deadlocks is in progress [Ref. 24]. 

As a subunit within the integration system the database has only one type of object, 
Track. There does exist, however, several classes of the object. The database features space 
for unlimited instances of each class, limited only by the amount of swap space available 
to the workstation. 

The integration system must provide a function by which the user can manually enter 
a track. Incorporated in this task will be provisions allowing the user to change certain 
attributes of the Track but, restricting these changes to Track identification number and 
other amplifying information. 

The integration system must receive from the Global Positioning System ownship fix 
(Geographic_Position) data which consist of a Latitude, Longitude, and a Greenwich Mean 
Time(GMT). A Global_Position is the Latitude converted to an angle from the equator and 
the Longitude converted to an azimuth from the Greenwich Meridian. This data string must 
be translated and formatted into system data format. The ownship system data is to be 


stored in the database as track zero and used to define the ownship track. Ownship track is 
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used by the system to compute course, speed, closest point of approach, range, and bearing 
information on a user designated track. 

The integration system must receive Link 11 data transmitted via the standard fleet 
UHF/HF communication channels. The data as received 1s a cryptogram and not usable by 
the integration system, therefore the data must be deciphered and translated into system 
format. To accomplish this translation we propose to use a system already being used in the 
fleet. This translation is a major project in itself and not a primary requirement for the 
prototype version of the LCCDS. The system proposed to translate the Link message input 
to M-series messages is the Link Monitoring System (LMS 11r) which receives the Link 
11 data directly from the communications link and with a cryptographic unit (KG-40) in- 
line, translate the data into English M series messages which can be sent to the link 11 
processor inside the integration system. The link 11 processor translates the M series 
messages to a string of system formatted characters representing a relative position from 
DLRP of each contact. The integration system will then store each of these contacts in the 
database as a track. 

A subset of these tracks determined by a filtering process designated by the user, can 
then be graphically displayed. The filter system is a collection of individual filters that can 
be combined together by utilizing the mathematical expressions and and or. This 
combination filter acts as a single filter and forms a TACPLOT, which is used by the 
integration system to send to the user for graphic display those tracks and situations 
requested. Filters are discussed in more detail later in this document. The shoreline maps 
and auto tracking capability listed in the NAVSEA requirements are not a part of this 


research project. 
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D. INTEGRATION SYSTEM CONTEXT DIAGRAM 


Figure 4 is the context diagram of the integration system. The diagram is used to 
illustrate the direction and paths of communication between the various elements of the 


integration system, the user interface, the link handler, and the navigation handler. 
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Figure 4: INTEGRATION SYSTEM CONTEXT DIAGRAM 
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E. INTEGRATION SYSTEM STRUCTURE DIAGRAM 


Figure 5 is the integration system structure diagram illustrating the individual sections 
or functions the integration system is naturally divided. Each section may contain several 
individual and unique functions or task which together accomplish the desired mission of 


that section. 
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Figure 5 : INTEGRATION SYSTEM STRUCTURE DIAGRAM 
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F. EVENT LIST: 


A list of external events that cause a response by the integration system is shown in 


Figure 6. 


1.Simulus: Receive ownship data from the Navigation interface . 
Response: Interpret and store ownship position(fix) in database. 

2. Stimulus: Receive track data from Link 11 NTDS. 

Response: Interpret and store NTDS tracks in database. 

3. Stimulus: Receive filter from the user. 

Response : Provide for graphic display of tracks specified by filter. 
4. Receive new track data from the user. 

Response: Interpret and store in database. 

5. Stimulus: Receive a request to provide CPA data from the user. 
Response: Interpret and provide forgraphic display CPA data. 

6. Stimulus: Receive track information request from the user. 
Response: Provide for the user track identification number and category of 
track specified. 

7. Stimulus: Receive flag from navigation interface indicating loss 


of sensor signal. 


Response: Provide user with alarm specifying loss of sensor signal. 





Figure 6 : INTEGRATION SYSTEM EVENT LIST 


List of events which will occur in the navigation system as a response to the action of 


one or more sensors are found in Figure 7. 


1. Stimulus: Receive ownship fix data from the Global 

Positioning System. 

Response: Translate GPS data to an Ada string of characters and 
transmit via communication link and RS 232 communication port 
to the integration system. 

2. Stimulus: Receive ownship course from ships gyroscope. 
Response: Transmit to integration system. 

3. Stimulus: Receive water depth under the keel from 

Ships fathometer. 

Response: Transmit to integration system. 

4. Stimulus: Receive ownship speed made good through the water 
from ships pitsword. 


Response: Transmit to the integration system. 


5. Stimulus: Receive contact information from the ships radar. 


Response: Translate data to an Ada string of characters 
representing a global position and transmit to the integration 


system. 





Figure 7: NAVIGATION SYSTEM EVENT LIST 


24 


List of events that originate from the user or integration system and trigger a response 


from the user interface are found in Figure 8. 




















1. Stimulus: Receive updated tacplot from integration system. 
Response: Provide graphic display of tracks specified by filter. 

2. Stimulus: Receive update of track category and amplifying data 
from integration system. 

Response: Provide graphic display of track category and amplifying 
data. 
3. Stimulus: Receive track data from the integration system. 
Response: Provide corrections to local tracks. 

4. Stimulus: Receive CPA information from the integration system 
on any specified track and ownship track. 

Response: Provide graphic display of CPA data. 

5. Stimulus: Receive CPA information from the integration system 
on any two specified tracks other than ownship. 

Response: Provide graphic display of CPA data. 

6. Stimulus: Receive initialize the system from integration. 


Response: User enters desired system setup. 


Figure 8: USER INTERFACE EVENT LIST 
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III. DESIGN OF THE INTEGRATION SYSTEM. 


A. INTERFACE SPECIFICATION FOR THE INTEGRATION SYSTEM 


One approach to the specification of concurrent programs 1s called behavioral. It starts 
by describing the possible events and actions, series of events and/or series of responses, in 
which part or all of a program may engage. The first big step was to take these descriptions 
and translate them into executable specifications. With this partial tool for designing 
concurrent programs, the construction of the integration system begin. At each level of the 
integration system we conducted a comparison of the different implementation methods 
available. Particularly noteworthy is that we found it readily easy to translate these 
implementation ideas into Ada code. More specifically, by using rendezvous and 
nondeterministic ‘Select’ statements of Ada Tasking ensure the parallel processing we 
seek. 

The integration system shall provide detailed information on all aspects of the tactical 
Situation and system control, operating parameters and status. This information is obtained 
from the Tactical Database which shall be an object-oriented database management system 
written in Ada. The system will provide a flexible, easy to use, window based user 
interface. A navigation interface will provide the system with ownship information and 


track data, as well as navigation data. 


B. STATEMENT OF PURPOSE 

The purpose of the integration system of the LCCDSWS is to integrate the user 
interface, the navigation system, the receive-only link interface 11 and the object- oriented 
database management system. The system is to maintain and display a real time picture of 


the tactical environment for the specific platform on which the system is located. 
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The results of this integration will store in the database all tracks, including the 
ownship track which includes ownship Navigation and Maneuvering data. The integration 
system will use filters provided by the user to determine the contents of the tacplot which 


is sent to the user interface for display. 


C. CONSTRAINTS 

Software development for Department of Defense must adhere to Department of 
Defense Military Standard 2167-A Defense System Software Development, 29 February 
1988[Ref. 25], Department of Defense Military Standard 2168 Defense System Software 
Quality Program, 29 February 1988[Ref. 26], and American National Standard Institute 
Military Standard 1815A-1983 Reference Vere for the Ada Programming Language, 17 
February 1983[Ref. 27]. 

Specified in the Requirement Analysis [Ref. 3] Seveney and Steinberg thesis, are the 
LCCDSWS, prototype constraints. These constraints will be used as a guideline for the 
constraints definitions of the integration system. The performance constraints may be 
evaluated at several different levels and in several different contexts but we will focus on a 
limited view from the standpoint of the integration system only. 

1. Resource constraints: The basic resources are available in the LCCDS team and in 
the faculty and staff of the Naval Postgraduate School. 

2. Implementation constraints: Hardware available is the Suns Microsystems 
Sparcstation 2 machine. The system is configured in a stand-alone unit configuration with 
four each RS-232 communication ports used for interface with the Link, GPS, and ships 
sensors. Operating System as defined in reference 2 is derived from the UC Berkely 


Version 4.2 BSD and Bell Lab’s UNIX system version 32v [Ref. 32]. 
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In accordance with Reference 1 and The Department of Defense policy the 
implementation language for the system will be Ada. In this particular application Verdix 
Ada 6.0 1s used. 

3. Performance constraints: Performance for the LCCDS workstation include 
Real_Time data processing and display. In this application system performance has an 
upper bound: Reference 1, Enclosure 1 defines Real_Time to mean that response time must 


be less than or equal to four seconds. 


D. THE INTEGRATION SYSTEM 


The design of the LCCDS is not that of an embedded system, however, the integration 
system contains functions and procedures not visible to the user. These functions and 
procedures, in some cases found in Ada Tasks, perform a vital role in the overall systems 
response and behavior. The design of the integration system as a Real_Time embedded 
system requires the use of parallel processing. 

In order to meet the time constraints specified in Reference |, special attention 
must be given to the order and magnitude of the Ada programs and packages which make 
up the integration system. The integration system is the main processing element of the 
LCCDS. Other elements such as the navigation system, Link 11, ships sensors have a one 
way communication link and only provide data to the integration system. The user 
interface element has a two way communication link with the Integration System, but is 
used to display, retrieve, and add to the data already in the system. The integration system 
stores the data received from these sources 1n the active database (located in RAM). The 
data is stored in a data structure called Track, which is defined in the database section of 


this document. 


28 


The system as configured can retrieve the data to perform various operations and 
functions on Track as required by the user or predefined by the system. The requirements 
for the system, list a number of these operations and functions [Ref. 1, 2]. 

1. Provide a filtered set of tracks to the user interface for graphic display. 

2. Provide the user with the ability to select the category and type of track to be 

displayed. 

3. Provide the user with closest point of approach data between any pair of tracks 

selected by the user. 

4. Track position to be dead reckoned using current track bearing and speed. 

5. Allow the user to make changes to tracks in the database. 

6. Provide the user with safe maneuvering data. 

The integration system receives track data from three sources: 


1. Manual input from the user as illustrated in Figure 9. 
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Figure 9: TRACK INPUT BY USER 
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2. Via communications interface with link 11 as illustrated in Figure 10. 
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Figure 10: TRACK INPUT BY LINK 11 


3. Via communications interface with the ships sensors(radar) as illustrated in Figure 
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Figure 11 : TRACK INPUT BY OWNSHIP SENSOR 
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The prime objective of the LCCDS is to provide a clear and concise tactical picture for 
the ship commander. This tactical picture must be presented in a manner which accurately 
represents the tactical problem (situation) comprehensibly to the user. The integration 
system allows the user freedom to concentrate on the situation via user predefined filters. 
Regardless of the mission or tactical situation, a ships sensors provide only raw data. Even 
when this data is graphically displayed relative to ownship, it 1s still only useful when the 
user applies intelligence to the overall situation. 

A simplified view on the process of collecting, filtering, and displaying tactically 


significant data in a Real Time environment is in Figure 12. 
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Figure 12 : TRACK FILTER STRUCTURE DIAGRAM 
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The integration system provides navigation, link 11, and user interface inputs to the 
database. The input is not direct, but through the integration system, allowing for control 
of the data stored in the database. A specific package is written inside the integration system 
to interface with the navigation system. The navigation system package provides a facility 
for converting GPS data into an ownship track. The link 11 package processes the link 11 
tracks and after filtering the track base, stores all accepted tracks in the database. Local or 
user generated tracks is part of the track package. 

The integration system consist of a main Ada task that makes entry calls to the various 
tasks, functions, and procedures that collectively makeup the integration system. The 
simplified function or purpose of the integration system is to receive data from various 
sources and translate/parse this raw data input into data the user_interface can use for 
graphic display and store a duplicate set of data in the database. 

The user has available a set of options by which to manipulate the system filter 
algorithm. The user may select a single atomic filter or a series of atomic filters and by 
applying the mathematical and and or statements combine these filters to create a single 
and filter. This single and filter provides a template which the integration system uses to 
retrieve only tracks that meet the specific properties of the Tacplot. The Tacplot filed with 
the tracks that meet the filter are sent to the user interface for graphic display of the tactical 
Situation as illustrated in Figure 12. How the data is displayed is not a consideration of the 


integration system. 


E. THE OBJECT ORIENTED DATABASE MANAGEMENT SYSTEM 

The requirements for the LCCDS specify design and implementation of an object- 
oriented database system. The purpose of this database is to manage the tactical information 
store of the LCCDS. The information is used to display a tactical picture of a ship’s local 


environment and provide pertinent answers to queries defined by the user. The data 
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Structure and methods of the database, as well as the supporting software components are 
to be implemented in Ada. The features included in our database are based on the following 
considerations: 

1. Real_Time performance: Safety and Maneuverability of the ship, as well as tactical 

decision-making demands Real_Time performance. 

2. Maintainability: Using an object-oriented approach to the database ensures the 

methods and procedures defined on an object will not be affected if the data structure 

representing the object requires alteration. 

3. Transaction concurrency: In order to maintain Real_Time performance, parallel 

execution of separate tasks must occur. The parallel processing of these tasks, 

however, introduces potential of deadlock situations that should be prevented. 

The design of our database responds to the above considerations utilizing: 

1. Variant Ada records [Ref. 33] to define a single common object class. The main data 

structure holding the instances of the defined objects allows for rapid retrieval and ease 

of updating. Locking protocols prohibits conflicting transactions on the database. 

2. Ada tasks to handle the transaction concurrency problem. 

We start our explanation of the record structure by defining the catalog, also known as 
the database description or schema [Ref. 5, 10]. The catalog contains the following 
information: 

1. The constraints. 

2. Usage standards and application programs. 


3. Descriptions and user information. 
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Figure 13 : DATABASE COMMUNICATIONS DIAGRAM 


The system provides the user with the ability to find a specified track in the database, 
add a track, alter a track, drop a track, send a track to history, restore an altered track to 
database, see Figure 13. 

As discussed previously the Global Positioning System (Trimble-4000 S) illustrated 
in Figure 14 transmits the current fix data of ownship to the navigation handler via an RS- 
232 communication port via an RS-232 communication port. The navigation handler parses 
this data and translates it to a LCCDS usable format. The integration system receives from 


the navigation handler a string of characters which represent the position of ownship at a 


specific time. 
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Figure 14: GLOBAL POSITIONING SYSTEM 


The string of characters is parsed and converted into a Global_Observation for ownship. 
Data is received from the GPS at one second intervals. The navigation handler stores each 
of these data_input_strings in a buffer ready for the integration system to read. When the 
integration system makes a request to read data the navigation handler locks the buffer and 
does not allow the GPS to perform its normal one second overwriting of the data in the 
buffer with new data. 

When the integration system has completed the read function the navigation handler 
unlocks the buffer and allows the GPS to overwrite the buffer with the next full string of 
data. An interval of every four seconds is required for the integration system to update the 
ownship Global_Observation. 

Link 11 tracks are received by the system and converted to the track type. The system 
stores the tracks in the database. Filtering of these Link 11 tracks occurs 1n two stages, first 
as the tracks are received and deciphered, the second when the user designed filter is used 


to fill the Tacplot for graphic display of tracks. 
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F. THE LINK I] RECIEVE ONLY SYSTEM 


A vital feature in the LCCDS is the ability to receive all contact information reported 
by the task force on the NTDS Link 11. The data gathered and displayed from this source 
will give the Commanding Officer a clear tactical picture of all elements in the force. The 
Link provides a measure of security for ships maneuverability and tactical defense. This 
study did not consider a two-way communication link because the value of two-way 
communication to a non-combatant ship is unclear. However, data from ownship sensors 
could be useful to other combatant ships. 

we propose to utilize software and hardware from an outside source to translate the 
NTDS Link 11 data into source code the system can use. The Link 11 interface with the 
integration system consists of the link 11 handler designed inside the integration system 
and communicating directly with it is the external Link 11 data translator and decoder. The 
link handler is an Ada function which breaks a string of characters into the individual parts 
of the data type Track and stores the array of parts in a buffer waiting for the integration 
system to lock the buffer and read out the data. After reading the contents of the buffer the 
integration system unlocks the buffer. The link handler then repeats the process. 

Once this translator package is in hand, we can proceed to design an Ada package 
capable of parsing the NTDS Link 11 code string, M messages, and breaking them into 
there individual elements. Once the individual elements are available the system can 
convert them into a Track record. A new LCCDS track number is be assigned to each track 
with a pointer from the NTDS track number to its associated system track number. The 
Track record is be stored in the active database as a track. We limited our work on the link 


handler to developing a specification. 
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Figure 15 : LINK 11 RECIEVE ONLY CONTEXT DIAGRAM 


The system recommended to decipher and translate the Link 11 data into a string of 
correct LCCDS message format characters is the Link Monitoring Set 11 r (LMS 1Ir) 
system as illustrated in Figure 15. The LMS 1I1r system is a Link 11 receive only Data 
Terminal Set which can provide a continuous sting of two each sixteen bit parallel 
messages of the Link 11 data. These messages are then passed through the crypto- unit 
(KG-40 for LOS - UHF/HF and KG-84 for SATCOM - UHF)) which decodes the messages 
to M series messages. Using the format prescribed in OP-SPEC 411.2 these M series 
messages can be translated in the system format (English Text) by the integration system 
link 11 processor package. Because of the classification (CONFIDENTIAL) of the link 11 
material a removable hard drive or tape drive 1s recommended for secondary memory. At 
this point a discussion of the protocol for Link 11 data receipt, MIL-STD-1397 input data, 
would be appropriate if this research paper was classified. Because the paper is unclassified 
we will leave this discussion to the follow-on research and development of the Link 11 


receive only system. 
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IV. INTEGRATION SYSTEM /OODBMS 
ARCHITECTUAL DESIGN AND 
IMPLEMENTATION 


A. INTEGRATION SYSTEM MODEL 


The integration system software is designed as a set of Ada packages. This concept 
allows for greater versatility and application of the Ada programs and functions developed. 
The integration system provides navigation, link 11, and user inputs to the database. The 
input is not direct, but through the integration system, allowing for control of the data stored 
in the database. A specific package is contained in the integration system to interface with 
the navigation system. 

A general discussion of the packages and how we applied them to the overall design 
concept of the integration system follows Figure 16 which is a package dependency 
diagram of the integration system. In Figures 16 and 17 nodes are Ada packages, and the 


arrows depict Ada with statements. 
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1. LIST OF INTEGRATION SYSTEM PACKAGES: 


¢ INTEGRATION SYSTEM PACKAGE: The purpose of the package is to 
receive data or information from various sources, translate/parse the raw 
data input into integration system formatted data, store the data in the 
database as a track, and send the data to the user_interface for graphic 
display of the tactical situation. The package also performs time 


synchronization functions for external tasks. 


¢ FILTER PACKAGE: The purpose of the package is to represent policies 
for choosing which tracks are entered in the database and which are shown 
on the graphic display. The policies are defined by the user via the 


user_interface. 


¢ TRACK PACKAGE: The purpose of the package 1s creation, deletion, and 


modification of tracks in the database. 


¢ CPA PACKAGE: The purpose of the package is computation of the closest 


point of approach between any two tracks specified by the user. 


¢ VELOCITY PACKAGE: The purpose of the package is to represent the 
velocity of a specified track. Velocity is defined as a two dimensional 


vector, representing course and speed. 


¢ VECTOR _2 PACKAGE: The purpose of the package is to provide a 


means of using two dimension vectors for various applications. 


¢ VECTOR 3 PACKAGE: The purpose of the package is to provide a 


means of using three dimension vectors in various applications. 


¢ SPEED PACKAGE: The purpose of the package is to represent speed in 
knots or yards per second. 


* ANGLE PACKAGE: The purpose of the package is to offer a means of 
representing an angle in radians or degrees and functions to return attributes 


of the angle. 


* DISTANCE PACKAGE: The purpose of the package is to offer a means 


of representing distance in yards or nautical miles. 
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ABSOLUTE TIME PACKAGE: The purpose of the package is to provide 
the integration system constant access to system time. Defines the abstract 
data type Absolute_Time and associated functions. System time can be 

displayed as Greenwich Mean Time or Local Mean Time depending on user 


needs. 


RELATIVE TIME PACKAGE: The purpose of the package is to 


represent the length of the (interval)between two events. 


GLOBAL POSITION PACKAGE: The purpose of the package is to 
represent geographical positions on the earth. Input and output in terms of 
latitude and longitude are provided. Internally uses an angle from the 
equator and an angle from the Greenwich Meridian. 


GLOBAL OBSERVATION PACKAGE: The purpose of the package is 
to represent a global_observation(global_position, velocity, and time) for a 


track. The global observation indicates current position of the track. 


RELATIVE POSITION PACKAGE: The purpose of the package is to 
compute the bearing and range of a track from a reference track. Bearing is 
defined as an angle from true north and range is the distance between the 


two tracks. 


RELATIVE OBSERVATION PACKAGE: The purpose of the package 
is to define a data type Relative_Observation that stores a Relative_Position 


and an Observation_ Time. 


TRACK DATABASE PACKAGE: The purpose of the package is to 
provide a means to store the tracks in the system. To accomplish this the 


package creates a linked list of tracks. 


LINK PACKAGE: The package converts M series messages into system 
formatted tracks. These tracks are stored in the database as link controlled 
tracks. 
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¢ NAVIGATION PACKAGE: The purpose of the package is to keep track 
of ownship position via a communication port that accepts global 
pasitioning system data. The received data is translated into integration 


system track format and stored in the database as ownship current location. 


¢ SYSTEM STATUS PACKAGE: The purpose of the package is to provide 
the system with a means to enable or disable the communication link 
between the system and the ships sensors. The package provides the 
integration system with a means of indicating a up and operating or down 


and off status of the ships sensors. 


¢ M SERIES MSG PACKAGE: The purpose of the package is to provide a 
means of activating a communication port to read in the link M series 


messages from the LMS 1 Ir and storing the messages in a buffer. 


¢ PROCESS LINK TRACKS PACKAGE: The purpose of the package is 
to read from the buffer each M series message. Using the LINK package 
procedures/functions, each M series message is converted to an integration 
system link track. The LINK tracks are processed as integration system 


tracks and stored in the database. 


2. ABSTRACT DATA TYPES: 
a. TRACK 


(1) Description: A TRACK represents the observations and descriptions of 

a tactically significant contact. The implementation of the TRACK type is given in 

Appendix C, p. 103. There are several different kinds of TRACKs; each of which is 

identified by its TRACK_CATEGORY (see Function TRK_CATEGORY). The possible 
values of TRACK CATEGORY are: 

a. SURFACE_PLATFORM: In nautical terms, a surface platform is 

defined as any man-made vessel designed to operate on the surface of the water. For a more 


detailed definition refer to Reference 2. 
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b. SUBSURFACE PLATFORM: In nautical terms, a subsurface 
platform is defined as any man-made vessel designed to operate below the surface of the 
water. For a more detailed definition refer to Reference 2. 

c. AIR_PLATFORM: An air platform is any man-made object designed 
to operate above the earth’s surface. The platform has an ALTITUDE. For a more detailed 
definition refer to Reference 2. 

d. UNKNOWN: An unknown TRACK_CATEGORY is defined as any 
TRACK whose TRACK_CATEGORY has not yet been established by the user. 

The TRACK_CATEGORY of an UNKNOWN TRACK can be changed 
via the operation CHANGE_TRACK_CATEGORY. 

e. REGION: REGIONS consist of two types, CIRCLE and POLYGON. 
A REGION is stored in the database as a TRACK. A CIRCLE contains a center 
(GLOBAL_POSITION) and a radius (DISTANCE). A POLYGON contains from three to 
twenty vertices (GLOBAL_POSITIONS) that form the POLYGON. The REGION may be 
relative to a GLOBAL_POSITION which does not have motion or relative to a TRACK 
that has VELOCITY. A REGION may represent an operating area in which the platform 
operates or may represent a restricted area in which platform movement is constrained or 
forbidden. 

f. PATH: A PATH consists of a series of WAYPOINTs 
(GLOBAL_POSITIONS) and is stored in the database as a TRACK. A time is assigned to 
each WAYPOINT and represents a desired time to arrive at the WAYPOINT. The array is 
passed to the user_interface for graphic display upon request. PATHs can be used to 
represent Path of Intended Movement(PIM) along which the platform travels. A PATH can 
be stored in history for later reference. 

g. MAN_IN_WATER: A GLOBAL_POSITION used to mark the 
geographic location of a man lost overboard. 

h. SPECIAL_POINT. A SPECIAL_POINT TRACK is defined as a 


single object, real or imaginary, man-made or natural, and not otherwise designated as 
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surface platform, subsurface platform, air platform, or unknown. A SPECIAL_POINT 
TRACK is further defined by its SPECIAL_POINT_CATEGORY. The possible values of 
a SPECIAL_POINT_CATEGORY are NAV_HAZARD, WAYPOINT, or GENERAL. 
All SPECIAL_POINT TRACKs have, as _ attributes, VELOCITY, and 
(GLOBAL_POSITION). A WAYPOINT is generally defined as an imaginary point at a 
specific GLOBAL_POSITION with an additional attmbute TIME_TO that defines 
OWNSHIP’s expected/desired arrival time to the WAYPOINT. A NAV_HAZARD is a 
SPECIAL_POINT that represents a physical object whose size and/or location presents a 
real hazard to navigation. A GENERAL SPECIAL_POINT is a SPECIAL_POINT not 
otherwise designated as a WAYPOINT or NAV_HAZARD. Its description may be 
elaborated in the TRACK’s AMPL_INFO. 


(2) Attributes: The following are attributes of TRACK: 

a. Function TRACK ID-.NUMBER (TRK: TRACK) | return 
NATURAL; 

TRACKs are uniquely identified by their TRACK_ID_NUMBER. 
TRACK_ID’s are unique throughout a mission, to make sure that the historical record is 
unambiguous. Every TRACK has a TRACK_ID_-NUMBER regardless of its 
TRACK_CATEGORY. The TRACK_ID-.NUMBERs re generated by _ the 
TRACK_TYPE and are a one up count process (see the variable TRACK_ID in the private 
part of the package TRACK_PKG specification. The correspondence between flea 
TRACK_ID’s and TRACK_ID_NUMBER is maintained by the LINK_TABLE data 
Structure in the package LINK_PKG. 

b. TRACK location: 

Function CURRENT_POSITION (TRK: TRACK) © return 
GLOBAL_POSITION; 

CURRENT_POSITION returns the GLOBAL POSITION of the 
TRACK’s dead-reckoned position from the last GLOBAL_OBSER VATION 


AA 


Function RELATIVE BEARING (REFERENCE_TRACK, 
TARGET_TRACK: TRACK) return ANGLE; 

Returns the bearing angle from the course of the 
REFERENCE_TRACK to the TARGET_TRACK. 

Function TRUE_BEARING (REFERENCE_TRACK, 
TARGET_TRACK: TRACK) return ANGLE; 

Returns the bearing angle from true north to the TARGET_TRACK. 

Function MOST_RECENT_OBSERVATION (TRK: TRACK) return 
ANGLE; 

Returns the TRACK’s last entered GLOBAL_OBSERVATION. 

c. TRACK motion: 

Function TRUE_VELOCITY (TRK: TRACK) return VELOCITY; 

Returns TRACK’s true course and speed relative to the surface of the 
earth as calculated in its MOST_RECENT_OBSERVATION. 

Function TRUE_COURSE (TRK: TRACK) return ANGLE; 

Returns TRACK’s true course calculated in its 
MOST_RECENT_OBSERVATION. 

Function TRUE_SPEED (TRK: TRACK) return SPEED; 

Returns TRACK’s true speed calculated in its 
MOST_RECENT_OBSERVATION. 

Function TRACK_RELATIVE_VELOCITY (REFERENCE_TRACK, 
TARGET_TRACK: TRACK) return VELOCITY; 

Returns TARGET_TRACK’s relative motion (course and speed) 
relative to the given REFERENCE_TRACK. 

Function RELATIVE_COURSE(REFERENCE_TRACK, 
TARGET_TRACK: TRACK) return ANGLE; 

Returns TARGET_TRACK’s relative course as seen from the reference 


TRACK. 
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d. TRACK intelligence information: 

Function AMPL_INFO (TRK: TRACK) return AMP_STR.VSTRING; 

Returns a string of characters that more clearly defines the identification 
or mission of the platform represented by the TRACK. 

Function TRACK_IDENTITY (TRK: TRACK) return 
IDENTITY_TYPE; 

Returns the TRACK’s IDENTITY_TYPE, which can have the values 
UNKNOWN, FRIENDLY, HOSTILE, NEUTRAL. 

Function PLATFORM_CLASS (TRK: TRACK) return 
V_AND_C_STR.VSTRING; 

Returns a string of characters that define the class of the contact. 
Examples are Cruiser or Aircraft carrier. 

Function VESSEL_NAME (TRK: TRACK) return 
V_AND_C_STR.VSTRING; 

Returns a string of characters that represent the platforms name. An 


example is USS EDSON. 


(3) Creation Operations A TRACK object is created by procedure 
CREATE_TRACK Appendix C, p. 130. A required parameter for this operation is, 
understandably, its first GLOBAL_OBSERVATION. 


(4) Update Operations The package, TRACK_PKG, contains numerous 
functions and procedures to modify/update the attributes of TRACK objects as described 


in Reference 2. 


b. FILTER 


(1) Description: A FILTER is a predicate on TRACKs that defines a subset 
of all possible TRACKs. FILTERs are used to represent display policies. They describe a 


set of characteristics that a TRACK must possess in order to be graphically displayed. 
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Complex FILTERs are defined in terms of simpler AND_FILTERs. A FILTER predicate 
is a disjunction (or) of one or more AND_FILTERs; that is, if a TRACK meets all 
requirements of at least one of the AND_FILTERs, it is accepted for display. 
AND_FILTERs are composed of simpler ATOMIC_FILTERs. An AND_FILTER 
predicate is a conjunction (and) of zero or more ATOMIC_FILTERs; a TRACK satisfies 
an AND_FILTER if it meets all requirements of its component ATOMIC_FILTERs. Each 
ATOMIC_FILTER defines a single relational constraint on a TRACK. The 
implementation of the FILTER type is given in Appendix D, p. 153. 


(2) Attributes: ATOMIC_FILTERs have the form [FILTER_CATEGOR Y 
RELATION CONSTANT]. The possible values of FILTER_CATEGORY §$are 
DISTANCE_FILTER, TRACK_CATEGORY_FILTER, and PLATFORM_IDENTITY_ 
Mle TER. 

a. DISTANCE_FILTER describes a TRACK’s distance from a 
reference TRACK or the TRACK ’s altitude (if air). 

b. TRACK CATEGORY FILTER describes a  TRACK’s 
TRACK_CATEGORY. 

c. PLATFORM_IDENTITY_ FILTER describes a TRACK’s 
IDENTITY_TYPE (UNKNOWN, HOSTILE, FRIENDLY, NEUTRAL). 

d. RELATION identifies the FILTER. CATEGORY ’s relation to the 
input CONSTANT. The possible values of a RELATION are EQUAL, NOT_EQUAL, 
LESS, LESS_OR_EQUAL, GREATER, and GREATER_OR_EQUAL. An example 
ATOMIC_FILTER is “TRACK_CATEGORY EQUAL SURFACE_PLATFORM.” This 
means that one requirement (ATOMIC_FILTER) of an AND_FILTER is that the TRACK 
must be of TRACK_CATEGORY SURFACE_PLATFORM. 


(3) Creation Operations: ATOMIC_FILTERs are created through calls to 
either: MAKE DISTANCE_ATOMIC_FILTER, MAKE TRACK CATEGORY _ 
ATOMIC_FILTER, or MAKE_PLATFORM_IDENTITY_ATOMIC_FILTER. 
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Following the creation of an ATOMIC_FILTER, it is appended to its parent AND_FILTER 
through a call to ADD_ATOMIC_FILTER_TO_AND_FILTER. Once an AND_FILTER 
has been fully defined, it is appended to the FILTER through a call to 
ADD_AND_FILTER_TO_FILTER. 


(4) Update Operations: FILTERs are updated as a result of the addition of 
AND_FILTERs. Once the FILTER is filled, the contents of that FILTER are unchangeable, 
unless a new FILTER is created, thus deleting the old ATOMIC_FILTERs and 
AND_FILTERs. 


c. TRACK_DATABASE 


(1) Description: TRACK DATABASE represents the LCCDS database of 
TRACKs. The implementation of the TRACK_DATABASE type is given in Appendix Q, 
DpeZol 


(2) Attributes: ACTIVE TRACK(TRACK_DATABASE) returns a boolean 
value that tells whether or not a TRACK is active in the database. For example, following 
a call to FIND_TRACK_IN_DBASE(TRACK_ID), the function 
ACTIVE _TRACK(TRACK_ DATABASE) will return FALSE if the TRACK was not 
found. Active relates to a TRACK receiving periodic updates by the function 


ADD_TRACK_OBSERVATION. 


(3) Creation Operations: LCCDS contains one, and only one, object of type 


TRACK_DATBASE that is created at system initialization. 


(4) Update Operations: TRACK_DATABASE is updated when a TRACK 
is added to the database (ADD_TRACK_TO_ DBASE), when a TRACK is deleted from 
the database (DROP_TRACK_FROM_DBASB), and when the entire database is deleted 
(PURGE_ENTIRE_DBASE). 
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d. GLOBAL_POSITION 


(1) Description: A GLOBAL_POSITION represents the earth coordinates 
of a TRACK geographic location. The implementation of the GLOBAL_POSITION type 
is given in Appendix N, p. 219. Internally we use a mght-handed coordinate system 
centered on the center of the earth. The z axis points to the north pole, and the x axis points 


to the intersection of the equator and the Greenwich Meridian. 


(2) Attributes: The geographic location is defined as a latitude and longitude 
of the TRACK. Latitude is defined as an angle from the equator (PHI) and Longitude is an 
angle from the Greenwich Meridian (THETA). GET_LATITUDE(GLOBAL_POSITION) 
and GET_LONGITUDE(GLOBAL_POSITION) are attributes of GLOBAL_POSITION 
that refer to latitude and longitude, respectively. A GLOBAL_POSITION, as used in 
LCCDS, cannot be changed once created. Its value can, however, be retrieved for use in the 


computations of other values. 


(3) Creation Operations: The operations that create a GLOBAL_POSITION 
are MAKE _GLOBAL_POSITION and FIND_GLOBAL_POSITION. 
MAKE GLOBAL_POSITION accepts the numerical equivalents of degrees, minutes, and 
seconds, as well as the latitude and longitude hemisphere identifiers and returns a 
GLOBAL_POSITION in terms of PHI and THETA. FIND_GLOBAL_POSITION returns 
a calculated GLOBAL_POSITION based on a RELATIVE_POSITION from another 
GLOBAL_POSITION. 


(4) Update Operations: None 


e. LINK_TYPE 


(1) Description: A LINK_TYPE represents a tactically significant contact as 
reported over Link-11 (in M_SERIES_MSG format). The implementation of the 
LINK_TYPE type is given in Appendix R, p. 238. 
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(2) Attributes: These elements refer to the LINK_TYPE’s Link number, its 
relative position from DLRP (Data Link Reference Point), the time of the observation, the 


TRACK category, the TRACK identity, and its altitude (if air). 


(3) Creation Operations: A LINK_TYPE is created by 
CON VERT_M_SERIES_MSG_TO_LINK_TYPE. 


(4) Update Operations: Since the information used to fill an object of 


LINK_TYPE comes into LCCDS from an external source, LINK_TYPE is not mutable. 


f ABSOLUTE_TIME 


(1) Description: ABSOLUTE_TIME represents the year, month, and time of 
day to the second. The implementation of the ABSOLUTE_TIME type is given in 
Appendix K, p. 206. 


(2) Attributes; YEAR(ABSOLUTE_TIME) refers to the calendar year. 
MONTH(ABSOLUTE_TIME) refers to the numerical value of the calendar month. 
DAY(ABSOLUTE_TIME) refers to the calendar day. 
TIME _OF_DAY(ABSOLUTE_TIME) refers to the number of seconds elapsed in the 


current day. 


(3) Creation Operations: An object of type ABSOLUTE_TIME is created by 
initiating a function call to MAKE ABSOLUTE_TIME. Objects of type 
ABSOLUTE_TIME can also be created though function calls to “+”, “-”, or NOW. 


(4) Update Operations: None. 


g. VECTOR_2 


(1) Description: Describes a two-dimensional vector defined in terms of 
floating point numbers, representing a TRACK’s course and speed or its bearing and range. 


The implementation of the VECTOR_2 type is given in Appendix G, p. 186. 
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(2) Attributes: LENGTH(VECTOR_2) refers to speed or range. 
DIRECTION(VECTOR_ 2) refers to course or bearing. X_COORDINATE(VECTOR_2) 
refers to the X coordinate of the vector. Y_COORDINATE(VECTOR_2) refers to the Y 


coordinate of the vector. 


(3) Creation Operations: Operations that create instances of VECTOR_2 are 
MAKE POLAR_VECTOR_2 and MAKE_CARTESIAN_VECTOR_2. Operations that 
create instances of VECTOR_2 by mathematical manipulations are “+” (the addition of 
two vectors), “-” (subtraction of one vector from another), DOT_PRODUCT, “*” 


(multiplication of a vector by a scalar factor). 


(4) Update Operations: None. 


h. VECTOR_3 


(1) Description: Describes a three-dimensional vector defined in terms of 
floating point numbers. The implementation of the VECTOR_3 type is given in Appendix 
H, p. 194. 


(2) Attributes: Attributes of VECTOR_3 include LENGTH(VECTOR_ 3), 
X_COORDINATE(VECTOR_ 3), Y_COORDINATE(VECTOR_ 3), 
Z_COORDINATE(VECTOR_ 3), THETA(VECTOR_3), and PHI(VECTOR_ 3). 


(3) Creation Operations: Operations that create instances of VECTOR_3 are 
MAKE POLAR_VECTOR_3, MAKE_CARTESIAN_VECTOR_3. Operations _ that 
create instances of VECTOR_3 by mathematical manipulations are “+” (the addition of 
two vectors), “-” (subtraction of one vector from another), DOT_PRODUCT, 


CROSS_PRODUCT, SCALE (multiplication of a vector by a scalar factor) 


(4) Update Operations: None. 
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3. TASK INTEGRATION SYSTEM: 

The purpose of the task is to manage the track database. The task receives data or 
information from various sources and translate/parse this raw data input into integration 
system formatted data that the user_interface can graphically display. The task defines 
entry calls to the various tasks, functions, and procedures that create, delete, or otherwise 
modify TRACKs and FILTERs. The INTEGRATION_SYSTEM task also provides a 
timing function for the task PROCESS_LINK_TRACKS that retrieves and modifies Link 
11 input. The INTEGRATION_SYSTEM task is necessary to provide a Real_Time 
environment for the integration system. The task allows parallel processing to take place 
preventing one function or procedure from dominating the CPU. 

A list of the entry calls defined by the task follows: 


¢ Entry CREATE_TRACK: Creates a TRACK and enters it into the 
TRACK_DATABASE. 


¢ Entry DELETE_TRACK_AND_SEND_TO_HISTORY: Deletes a 
TRACK from the active TRACK_DATABASE and sends it to history. 


¢ Entry ADD_TRACK_OBSERVATION: Adds an observation to an 
existing TRACK, using relative position from OWNSHIP as the 
observation location. 


* Entry SET_TRACK_IDENTITY: Sets/changes a TRACK’s IDENTITY. 


¢* Entry SET_AMPL_INFO: Sets/changes a TRACK’s 
AMPLIFYING_INFO. 


* Entry SET_.PLATFORM_CLASS: Sets/changes a TRACK’s CLASS. 
* Entry SET_VESSEL_NAME: Sets/changes a TRACK’s NAME. 

¢* Entry SET_ALTITUDE: Sets/changes a TRACK’s ALTITUDE. 

¢ Entry GET_CONTROL: Gets a TRACK’s CONTROL. 


* Entry SET_CONTROL: Sets/changes a TRACK’s CONTROL. 
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Entry CHANGE_TRACK_ CATEGORY: Sets/changes a TRACK’s 
IDENTITY. 


Entry BUILD_WAYPOINT_SPECIAL_POINT: Builds a WAYPOINT 
TRACK. 


Entry BUILD_NAV_HAZARD_SPECIAL_POINT: Builds a 
NAV_HAZARD TRACK. 


Entry BUILD_GENERAL_SPECIAL_POINT: Builds a GENERAL 
SPECIAL_POINT TRACK. 


Entry BUILD_PATH: Builds a PATH TRACK. 


Entry BUILD_ABSOLUTE_CIRCLE_REGION: Builds an ABSOLUTE 
CIRCLE REGION TRACK. 


Entry BUILD_RELATIVE_CIRCLE_REGION: Builds a RELATIVE 
CIRCLE REGION TRACK, with the radius of the circle in yards and 


position of circle center relative to reference track position. 


Entry BUILD_ABSOLUTE_POLYGON_REGION: Builds an 
ABSOLUTE POLYGON REGION TRACK. 


Entry BUILD_RELATIVE_POLYGON_REGION: Builds a RELATIVE 
POLYGON REGION TRACK. 


Entry CHANGE_COURSE: Adds TRACK observation reflecting 
TRACK’ s course change. 


Entry CHANGE_SPEED: Adds TRACK observation reflecting TRACK’s 


speed change. 


Entry CHANGE_GLOBAL_ POSITION: Adds TRACK observation 
reflecting TRACK ’s position change. 


Entry MAKE_DISTANCE_ATOMIC_FILTER: Makes an 
ATOMIC_FILTER based on distance type attributes and adds it to the 
current AND_FILTER. 
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Enry MAKE_TRACK_CATEGORY_ATOMIC_FILTER: Makes an 
ATOMIC_FILTER based on TRACK category type attributes and adds it to 
the current AND_FILTER. 


Entry MAKE_PLATFORM_IDENTITY_ATOMIC_FILTER: Makes an 
ATOMIC_FILTER based on TRACK identity type attributes and adds it to 
the current AND_FILTER. 


Entry ADD_AND_FILTER_TO_FILTER: Adds a filled AND_FILTER to 
the current FILTER. 


Entry CLEAR_FILTER: Clears the FILTER to make way for a new one. 


Entry WRITE_FILTER: Writes a filled FILTER to an archive file for 


historical purposes. 


Entry FILL_TACPLOT: Fills the tactical display structure with TRACKs 
that pass FILTER requirements. 


Entry SET_SENSOR_STATUS: Flags the system as to whether or not to 
accept input from a particular OWNSHIP sensor. 


Entry GET_SENSOR_STATUS: Gets the current input status from a 
particular OWNSHIP sensor. 


Entry SHUTDOWN: Purges the TRACK_DATABASE, sending each 
TRACK to an archive file. Also writes archived TRACK info and FILTER 
info to text files. Aborts the GPS update task. 


TASK GPS_UPDATE_TASK: 


The purpose of the task is to interface to a Global Positioning System via the RS- 


232 communication port. The task reads in a string of data that represents the geographic 


position of the ship at the time the data was received, and store the Global Positioning 


System data in a buffer. The task defines no entry calls but, invokes the procedure 


Add_Track_Observation which accepts the geographic position reported by the Global 


Positioning System as a new observation. Retrieves GPS data every four seconds and adds 
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a new OWNSHIP TRACK observation The task is a separate task because if it were a 
procedure or function the system would not be released to perform any other operations. 

No entry calls are defined from GPS_UPDATE_TASK. 

5. TASK LINK CYCLE: 

The purpose of the task is to limit the rate of the Link input. The task has an 
endless loop that clocks the time period of four seconds between loops. Each loop the task 
calls the procedure that reads in the Link buffer and processes the M_Series_Messages 
into Link_Tracks and stores them in the database. The single entry call defined by the task 
is listed below: 

a. entry START_LINK_UPDATE; 


Link 11 information request performed every 4 seconds 


6. TASK PROCESS LINK_TRACK: 


The purpose of the task 1s to process the Link 11 M_Series_Messages into 
Link_Track format. After processing the message buffer the task checks the database to see 
if the track is active. If the track is found the process updates the track with a 
Global_Observation. If the track is not found the Track is created and stored in the 
database. 


No entry calls are defined by PROCESS_LINK_TRACK. 


B. DATABASE MODEL 


Design and development of the database for the LCCDS is driven by four goals: 

1. Performance: Does the structure of the database support fast access to the data? Can 
the system(USER) retrieve and update relevant data within specified response time? 
2. Integrity: To what extent does the database guarantee that correct data is stored and 


is not accidentally corrupted? 
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3. Understandability: How coherent is the structure of the database to the user? After 

a long period of time, will it still be understandable to the designers and others? 

4. Extensibility: How easily can the database be extended to new applications without 
disrupting the present or on-going system? 

Keeping these goals in mind, we define the requirements/restrictions placed on the 


database. 


1. The object-oriented database is to be implemented in Ada. 
2. The database is to be divided into two parts. 

a. An active database in main memory. 

b. A historical database in secondary memory. 
3. Develop a Real_Time system. 


a. Time meets the four second Real_Time requirement with respect to start time 


and completion time of a specific transaction(Task,Procedure,Function). 


b. The current design assumes a single processor system. 

Design of the tactical database starts with identification of objects and classes. The 
initial phase consist of analysis of the objects proposed in reference 35. The requirements 
are not difficult since most objects are identified by references 34 and 35, but, caren 
analysis of the objects and their class along with the methods are necessary before starting 
to build the database. First we establish that the database has only one class the abstract data 
type Track. Each object of this class has object variables specific to that object 

Our objective is to use the object-oriented approach in the databade design. An object- 
oriented distributed program system is modeled as a collection of task or procedures 
containing transactions and data objects which synchronize their operations through 


messages. To elaborate, when discussing Ada tasking and communication complexity for 
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distributed programs, the key property to be considered 1s that both consist of a number of 
processes or task that execute asynchronously in parallel, but communicate and 
synchronize by message passing. 

While considering requirements complexity, looking at distributed programs which 
realize concurrency by parallel execution of separate tasks and which constrain the 
concurrency by introducing task communication. We came to the conclusion that program 
complexity consist of two components: 

1. A local complexity which reflects the complexity of the individual task. 

2. Communication complexity which reflects the complexity of the interactions 
among tasks. 

A transactions accesses objects indirectly by communication of its desires to the 
transaction manager, which then sends a message to the appropriate object manager. 
Although transaction and object managers may maintain more than one transaction or 
object, we assume, with confidence, that the transaction manager controls on transaction at 
a time, and each object manager controls one object. The internal structure of a transaction 
manager consist of two components, the transaction body, and the probe queue. When a 
transaction request an object, the transaction manager sends a message to the object 
manager with the request. The object manager either grants or denies the request depending 
upon whether or not the transaction will create a conflict(deadlock) with some transactions 
already holding the object. The internal structure of the object manager contains: 

1. A LOCK_LIST which holds information about those transactions that currently 

hold a lock on the object. 

2. A REQUEST_LIST which lists those transactions currently having an outstanding 

request on the object. 

3. A COMPATIBILITY_TABLE which holds information on the compatibility of 


operations on the object. 
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The compatibility table is used by the concurrency control algorithm. The algorithm 
is based on the read/write lock model and may allow more than one holder since the object 
can be shared among transactions requesting read only locks. Concurrency control is 
insured because we have insisted that all transactions run to completion or they don’t start 
running. We accomplish this by building a schedule of transactions to run. Because task run 
in parallel, it is important to insure the completion of specific parts of the program or task 
before allowing the remaining procedures or task to run. By insuring this scheduling holds, 
the results are the same as if the program or task was running individually. 

The database stores the track data which contains all the amplifying information 
needed to identify the contact. The Identification number is assigned by the integration 
system at the time the track is stored in the database. Because the data structure 1s a linked 
list the track ID numbers can range from one to infinity, with zero reserved for ownship. If 
the track in local the system will assign the next number to the track, but if the track is a 
link track the system must check if the track is active or not. If the track is active then the 
system simply updates the track. However, if the track does not exist the system assigns a 
system track number and add the numbers to a cross reference tables. The cross reference 
table is used to keep track of what link track goes with what system track. After the table 
entry is made the system then stores the track in the database. Each track stored in the 
database has added to it a link listed which contain each of the global observations. Each 
global observation contains the global position and time of observation for the specific 
track. The most recent observation is added to the head of the list enabling the system to 
retrieve the current position with better time efficiency. 

As discussed in the previous chapter, GPS data is received and buffered once every 
second. The integration system once every four seconds lock the buffer for writing in order 
to prevent inadvertent changing of data while reading. The integration systems package 


“navigation handler’ reads the GPS data, translate the data to system format as illustrated 
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in Figure 18 and stores the data as ownship location in the database track zero. Likewise, 
the LMS 1Ir the intermediate link 11 processor sends a series of M_Series_Messages 
through the decoder. The integration system receives the data which is buffered for reading 
by the integration systems “link processor”. The integration system once every four 
seconds lock the link buffer to prevent changing of data while reading 1s taking place. Then 
read the data and store it in the database by the appropriate track number assigned. 

Tracks are stored to secondary memory(History) only when the active track is deleted 
from the active database. If the system crashes, the active tracks in the active database are 
lost. However, these tracks can and must be recreated when the system is brought back on 
line. The user may select any number of tracks from the historical database to review by 
calling READ_TRACK_FROM_ARCHIVES and entering the track number/numbers 
desired. The integration system retrieves from secondary memory each track desired and 


stores a copy of it in an array then passes the array to the user for graphic display. 
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Figure 18 : DATABASE STRUCTURE 


C. LINK 11 MODEL 


It is important to note that most material related to and involving the link 11 system is 
classified confidential or higher. This document however, is unclassified, therefore the 
discussion of the link 11 system and the interface to it is limited to the unclassified portion. 

The link 11 signal is transmitted via UHF/HF radio communications to the fleet. We 
purpose to use an existing system LMS 1Ir to be an intermediate step between the LCCDS 
integration system and the link 11 receiver on the platform of choice. The LMS 1 Iris a unit 
already tested and in use. The General Specifications and Operational Specifications are, 
according to our source, in the Department of Defense supply system [Ref. 40]. 

The Link 11 interface with the integration system consists of a link 11 handler 
designed inside the integration system and communicating directly with the LMS 11r 
system. The link handler is an Ada function which breaks a string of characters into the 
individual parts of the track data type and stores the array of parts in a buffer waiting for 
the integration system to lock the buffer and read out the data. The integration system then 
unlocks the buffer and the link handler repeats the process. 

Link 11 data consist of two parts: a Data_Link_Reference_Point(DLRP) and a string 
of tracks reported by fleet assets with reference to the DLRP. The DLRP must be entered 
manually in the system by the user. The link handler translates the DLRP into a 
Global_Position and stores it as a regular track. The integration system assigns a special 
non changing track number to the DLRP that is determined at the time DLRP is entered. 
This track number will be determined by the system each time DLRP is entered. Utilizing 
this special track number the system calculates the relative position of the DLRP relative 
to ownship and the Global_Position of each track in the Link 11 database. The 
User_Interface selects the reference track and invokes the integration system function 


Relative_Position to compute the relative position of each Link 11 track to the reference 
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track. If the user does not select a reference track the system uses ownship as the default 
reference track and computes the Relative_Position of each Link 11 track relative to 
ownship. 

The track is then stored in the database with a system assigned track number. In order 
to keep track of which link track matches with which system track, a table is constructed in 
the integration system. The table contains three elements, the link track number, the 
corresponding system track number and a pointer to link them together. When an updated 
set of tracks is received the system searches the table to see if the link track is an active 
system track. If the link track is found to be an active system track the system updates the 
Global_Observation of the corresponding system track. If the link track is not found, the 
system calls create track, assign a track number to the corresponding link track, and stores 
the track in the database as illustrated in Figure 19. 

The integration system scans the link track table for time out every four seconds 
covering every track in the database designated as link control. The user may at any time 
take local control of a link track simply by changing the track control to local. A time out 
event causes the system to drop the link track from the active database. This action is 
necessary in situations where no updates on the specific track have been received in a pre- 
assigned time period. By doing so the system removes all inactive link tracks from the 
active database, freeing up space for new ones. The procedure has no control over local 
designated tracks. The user must clean house for these user generated tracks or tracks the 


user has changed from link to local control. 
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V. EVALUATION OF SYSTEM PERFORMANCE 


A. FUNCTIONAL 


Initial testing of the integration system was conducted by first designing a test program 
to evaluate each individual requirement [enclosure 1, Ref. 1]. The process of evaluating the 
integration system included testing for correctness and timing of each procedure, function, 
and task individually as illustrated in Figures 20 through 26. The test for each individual 
component was conducted successfully. 

The system test program was expanded to test the integration system collectively. To 
accomplish this testing procedure the integration system was linked to the navigation 
system for Global Position System data input. Manual tracks were entered as Link tracks 
to simulate Link 11 input. Each feature of the requirements of enclosure one of Reference 
1 was tested for correctness. Timing for a single iteration of the requirements feature was 
recorded and is illustrated in the timing diagrams Figures 20 through 26. 

A list of the test and evaluation of the system follows: 

1. Track testing phase: Testing of the Track package required the evaluation of each 

procedural operation and capability specified by the requirement specification. The 

list of these steps and their results are: 

Allow the user to create a manually input track and store the track in the database: The 

user may enter a track by either entering the bearing and range to the track from a 

reference track or by entering a Global_Position of the new track. Timing is well 

within the Real_Time range and correctness is verified. 

The integration system adds a new track to the database when the user manually inputs 

a track or when a track is received from the link processor is not found in the link to 


system track number reference table located in the integration system. The integration 
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system will assign a system track number to the track and store the track in the 
database. Timing 1s well within the Real_Time range and correctness is verified. 

The user has the option to delete any track from the database simply by identifying the 
track by the Track_Number, locate and retrieve the track from the database, and call 
the function DELETE_TRACK. Deletion of a track removes the track from the active 
database and stores the track and all of the global_observations to history in secondary 
memory. Timing is well within the Real_Time range and correctness is verified. 

The system receives from GPS ownship fix data. Translates the data string into 
integration system formatted track data and stores the track in the database as track 
number zero. The system receives from GPS new fix data every second and stores the 
data in a buffer. The integration system reads the buffer every four seconds and stores 
the data in the database as the current Global_Observation for track zero. Timing is 
well within the Real_Time range and correctness is verified. 

The user can change the attributes of a track in the database but, cannot change a 
Global_Observation. The user has the option to record or change the track category 
and identity or enter any amplifying information about the track. The user can make a 
manual course and speed change. The integration system will compute and record a 
new course and speed based on each new Global_Observation received or the manual 
course and speed entry from the user. When the track location is received as a 
Global_Position the system will compute the bearing and range to the track from 
ownship and record the data. Timing is well within the Real_Time range and 
correctness is verified. 

2. Velocity package testing phase: The system determines the velocity of a specified 
track. Velocity is divided into course and speed of a track Timing is well within the 


Real_Time range and correctness is verified. 
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3. Global position package testing phase: The system allows the user to manually input 
a Global_Position or will automatically convert a Relative_Position to a 
Global_Position and assign the global position to a specific track. The system assigns a 
relative position to a specific track from any specified reference track or defaults to 
ownship as the reference track. Given a Global_Position the system computes the 
Relative_Position. Timing is well within the Real_Time range and correctness is 
verified. 

4. CPA testing phase: The system determines the closest point of approach between any 
two specified tracks. The CPA results are true bearing, range, and time of CPA. Timing 
is well within the Real_Time range and correctness is verified. 

5. Filter testing phase: The system can designate a specified filter called an atomic filter 
and with the mathematical expressions and/or combine a series of these atomic filters 
into a specific system filter which filters tracks for display only those that meet the 
specific restrictions placed on the system by the user. Timing is well within the 
Real_Time range and correctness is verified. 


Testing of the integration system takes on two faces. The first is that of a bug or problem 


finding and removal process. The second is a timing test to see if the individual Functions 


and/or Procedures meet the Real_Time timing constraints. The timing test is divided into two 


parts, one to test the complete process run time and the second is testing each iteration of the 


process. Real Time is defined by NAVSEA as a four second period of time. Testing of the 


integration system has revealed to date, a safe and comfortable time margin within this 


Real_Time period in which the system may operate. 


While observing the timing graphs in section B this chapter, keep in mind that the times 


used were generated by the UNIX operating system and rounded off to fit the timing graphs. 


In each timing case the function tested was the primary function and may include any number 
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of called functions and procedures. The time considered for each timing graph was the 
composite time required to execute the primary function. Each iteration of a procedure/ 


function was also timed. 


B. TIMING CHARTS FOR REAL TIME CONSTRAINTS TESTING 


Timing and evaluation of the functions and tasks of the integration system was 
conducted to evaluate the Real_Time requirements for the LCCDS. Each entry in the 
timing diagrams Figures 20 through 26 correspond to a specific requirement by the sponsor 
[enclosure 1, Ref. 1]. Each individual entry in the timing diagrams has two timing 
categories and was conducted as previously discussed. The Isolated Module category for 
each entry represents the time required to execute the requirements feature of the 
procedure, function, or task as a individual unit. The System Response category for each 
entry represents the time required to execute the same feature by the integration system. 
Each entry in the timing diagrams was evaluated against the Real_Time requirement of the 
four second time period to refresh/fill the TACPLOT for graphic display of the tactical 
situation. 

The integration system is designed such that no single operation will dominate CPU 
time. The tasks and functions that are executed on a timed cycle require a small amount of 
the four second time period allowing time for the operations requested by the user. Utilizing 
these procedures we have developed a set of timing charts that very closely represent the 


actual CPU time required for the integration system. 
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Figure 25 : TIMING DIAGRAM 6 
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VI. CONCLUSIONS 


A. RECOMMENDATIONS 

The use of reusable software is an approach that saves time and money. It is a software 
development technique that works. One of the most serious problems faced today in armed 
forces acquisition of new systems is the length of time between initial requirements 
analysis and delivery of a usable system. This generally means that the system delivered is 
already out of date when it arrives. The LCCDS design, however, takes advantage of 
rapidly improving commercial computer technology, hardware and software. Specifically, 
we take advantage of reliable and inexpensive commercial workstation systems. Even more 
significant is the fact that we can obtain these workstations now vice having to wait for 
years while someone makes up their mind what the specification for the system should be. 

During the period of our research we discovered an interesting fact: there are Several 
different projects being funded to do the same exact thing, to develop a Combat Direction 
System that can be placed on non NTDS and NTDS ships to assist in the navigation and 
daily formation steaming functions. A combined effort might produce a workabie 
prototype capable of accomplishing what NAVSEA has mandated. The continuation of the 
LCCDS will see such a prototype in the fleet and soon after working models. 

Considerable effort was expended searching for an existing software unit capable of 
translating Link 11 data into a format the system could utilize. Our recommendation is to 
include the LMS- 11ra Logicon product to accomplish this task. The LMS-1 Iris a unit that 
is presently in the system and can be obtained with short lead time. 

A study designed to research the possibility of incorporating parts of the ATP-1C into 
the system capabilities would be money well spent. All the necessary elements with the 
exceptions of the algorithms are built into the system. Adding the required procedures and 


functions containing the algorithms for computing solutions to ATP-1C requirements and 
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incorporating them into the system calls would accomplish this requirement. To complete 


the addition of the ATP-1C solution solver would require the classifying of the system. 


B. EVOLUTION OF THE SYSTEM 


In order to accommodate the evolutionary changes in the tactical environment 
resulting from changes in tactics, weapons and sensors, the LCCDS has to be capable of 
quick and inexpensive software upgrades. This operational flexibility is a paramount 
requirement. The system must be programmable, to adapt to system failures and the ever 
changing data structure used in the integration system to support the constant evolution of 
the system support software. The need for flexibility clearly dictates the use of a general 
purpose, stored program, commercial computer where parts and upgrades can be 
accomplished with minimum cost in time and money. 

It is necessary to convert the various forms of tactical data from analog to digital 
representations so that all data in the system can be represented in the same formats. Analog 
to digital conversion becomes an important hardware priority. The procurement and 
installation of this hardware must be addressed in the continuation of this body of research. 
A follow on study would be most appropriate but not necessary as we have completed the 
initial leg work and have outlined the necessary additions in hardware and software. Speed 
of conversion and accuracy are the prime objectives in this task. The conversion to digital 
data representation must be done as close to the source as possible to maintain accuracy 
throughout the system and resultant data calculations and applications. 

Different types of these conversion units must be defined and specific decisions made 
as to which unit will be used in each of the more specific applications. The on-line analog 
to digital conversion must be used for vital data sources such as these selected sensors: 


gyro, pit log and the platforms primary radars. 


us 


Automatic radar detection and tracking of targets is another area of research for future 
projects. This thesis has not explored this vast and complex area. At present some ships of 
the fleet have a basic manual, rate aided tracking capability for all installed radars. 
However, on some ships when radar is overwhelmed with tracks, using the conventional 
grease pencil method of tracking and plotting, the analysis and decision making functions 
border on hopelessness. There is an obvious need for the auto tracking capability to be 
installed on all ships of the fleet. 

Each ship equipped with LCCDS would have a real time workin g advantage over ships 
not equipped with NTDS or the LCCDS. No longer would the commander have to wait for 
critical data needed to make fast, accurate, life-threatening decisions need for safe ship- 
handling. The commander would have more confidence in his decisions because of his 


confidence in the accuracy of the LCCDS system. 
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APPENDIX A 


GUIDE TO DATA TYPES 


In order to better understand the integration system this guide to the data types and the 


location where they can be found is provided: 
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rey cee ce me cece sm cr cr cr cr cr cr ws mr cr cr a a ee es ee ee 
— eee ee ee oe Oe ee oe ee ee eee a ee ee ee ee ee a ee ee eae ae Se eS SS eS ee ee ee OO ee 


~=wAnthors : Richard T. Irwin 
-- Willie K. Bolick 


Sembate ; 29 August 1991 


eo ¢ © © © © © @© © @ @© © © © ® © &© © © © © © &© © © © @ © © © © © © © & © © @& © @© © © & BD © © © © © © @ © © ®@ © © © © @& @ © © © © © & &® © 8&8 8 @ @ 


-- Description : Defines tasks INTEGRATION SYSTEM, GPS UPDATE TASK, 
LINK_CYCLE 


=——- and associated entries 


mcr cr cr cr mr ce cr a a a a a a a a a a a a a a a a es a es ee i oo 
——— ee ee ee oe ee ee 


with TRACK PKG, GLOBAL POSITION PKG, GLOBAL OBSERVATION PKG, ANGLE_PKG, 


SPEED PKG, DISTANCE PKG, RELATIVE POSITION PKG, FILTER PKG, 
TACPLOT PKG, 


SYSTEM STATUS PKG, ABSOLUTE _TIME PKG; 


use TRACK_PKG, GLOBAL POSITION PKG, GLOBAL OBSERVATION PKG, ANGLE PKG, 


SPEED PKG, DISTANCE PKG, RELATIVE POSITION PKG, FILTER_PKG, 
TACPLOT PKG, 


SYSTEM STATUS PKG, ABSOLUTE_TIME_PKG; 
package INTEGRATION SYSTEM PKG is 
-- Contains entries that deal with procedures to alter the main 
mmc DATABASE, the FILTER, or the SYSTEM STATUS 
task INTEGRATION SYSTEM is 
-- Creates a TRACK and enters it into the TRACK DATABASE 


entry CREATE TRACK 
( OBS : in GLOBAL OBSERVATION; 
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TRK CAT ; in TRACK CATEGORY Sm 


-- Deletes a TRACK from the TRACK DATABASE and sends it to history 
entry DELETE TRACK AND _SEND_TO HISTORY 
( TRK_NUM : in NATURAL ); 


-- Adds an observation to an existing TRACK 
entry ADD TRACK OBSERVATION 

( TRK_NUM : in NATURAL; 

OBS > 2. GLOBAL OBSERVATION ); 


-~- Adds an observation to an existing TRACK, using relative position 
Prom 


-- OWNSHIP as the observation location 
entry ADD TRACK OBSERVATION 

( TRK_NUM : in NATURAL; 

POs in RELATIVEUPOS? TION ey, 


-- Sets/changes TRACK’s IDENTITY 
entry SET TRACK IDENTITY 

( TRK_NUM : in NATURAL; 

TiD= sane [DENT LT ye eee 


~- Sets/changes TRACK’s AMPLIFYING INFO 
Sutrye oo) aie ey eee 

( TRK_NUM : in NATURAL; 

AMES in ol RENG a) 


-- Sets/changes TRACK’s CLASS 
entry SET PLATFORM CLASS 

( TRK_NUM : in NATURAL; 

Pea st he orRING }) > 


-- Sets/changes TRACK’s NAME 
entry SET VESSEL NAME 

( TRK_NUM : in NATURAL; 

VEO, 7 tnestRiNGe) - 


-- Sets/changes TRACK’s ALTITUDE 


entry SET ALTITUDE 
( TRK NUM" = an NATURAL? 
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wee; in DISTANCE ); 


Semeaets TRACK’s CONTROL 
emery GET CONTROL 

( TRK_NUM : in NATURAL; 
Sele; out CONTROL TYPE ); 


-- Sets/changes TRACK’s CONTROL 
suery SET CONTROL 

( TRK_NUM : in NATURAL; 

CON : in CONTROL TYPE ); 


-- Sets/changes TRACK’s IDENTITY 
entry CHANGE TRACK CATEGORY 

( TRK_NUM : in NATURAL; 

ean: in TRACK CATEGORY ); 


-- Builds a WAYPOINT TRACK 

entry BUILD WAYPOINT SPECIAL POINT 

( POS : in GLOBAL POSITION; 

Bove): in ABSOLUTE TIME ); -- time to waypoint 


-- Builds a NAV_HAZARD TRACK 
entry BUILD NAV_HAZARD SPECIAL POINT 
( OBS : in GLOBAL OBSERVATION ); 


-- Builds a GENERAL SPECIAL POINT TRACK 
emery BUILD GENERAL SPECIAL POINT 
( OBS : in GLOBAL OBSERVATION ); 


Sw euilds a PATH TRACK 
eniery BUILD PATH 
toe. in WAYPOINT ARRAY ); -- points in path 


-- Builds an ABSOLUTE CIRCLE REGION TRACK 

entry BUILD ABSOLUTE CIRCLE REGION 

( RAD : in DISTANCE; -- radius of circle(yds) 

etree GLOBAL POSITION ); -- posn of circle center 


-- Builds a RELATIVE CIRCLE REGION TRACK 
entry BUILD RELATIVE CIRCLE REGION 
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( RAD : in DISTANCE; -- radius of circle (yds) 

CTR : in RELATIVE POSITION; -= pest ef eer ele cCenve meee 
~= iO ret EEK oPpos 

REF TRK_NUM : in NATURAL ); -> reference track mumber 


-- Builds an ABSOLUTE POLYGON REGION TRACK 
entry BUILD ABSOLUTE POLYGON_REGION 
( AVA : in ABSOLUTE VERTEX ARRAY ); -- pts in polygon 


-- Builds a RELATIVE POLYGON REGION TRACK 
entry BUILD RELATIVE POLYGON REGION | 
( RVA : in RELATIVE VERTEX ARRAY; == pts an poly Teliveeem ver sem. 


==" pos ira on 
REE ERR Nuh - in NATURAL ); -- reference track number 


-- Adds TRACK observation reflecting TRACK’s course change 
entry CHANGES COURSE 

(TERR NUMGS: in NATURAL; 

CRS: in ANGLE We 


-- Adds TRACK observation reflecting TRACK’s speed change 
entry CHANGE SPEED 

( TRK_NUM : in NATURAL; 

SPD : in SPEED ); 


-- Adds TRACK observation reflecting TRACK’s position change 
EneLy CHANGE GLOBAL POSEETON 

( TRK_NUM : in NATURAL; 

POS : in GLOBAL POSITION ); 


-- Makes an ATOMIC _FILTER based on distance type attributes and adds it 
=- to the current ANDZEILIE. 

entry MAKE DISTANCE ATOMIC FILTER 

( DAF _ ATTRIB ID : an DISTANCE AlTRI Ey Leaeee, 

DAF LIMIT : in DISTANCE; 

DAF_REF_TRK_NUM : in NATURAL; 

DAF RELATION = in RELATION ID ); 


-- Makes an ATOMIC FILTER based on TRACK category type attributes and 
adds 


-- it to the current AND FILTER 


84 


entry MAKE TRACK CATEGORY ATOMIC FILTER 
( TCAF DESIRED TRK_CAT : in TRACK CATEGORY; 
TCAF EQ REL ID : in EQUALITY RELATION ID ); 


Eeeriakes an ATOMIC FILTER based on TRACK identity type attributes and 
adds 


Beet tO the current AND FILTER 

entry MAKE PLATFORM IDENTITY ATOMIC FILTER 
( PIAF DESIRED PLAT ID : in IDENTITY TYPE; 
ieee EO REL ID : in FOUR ETT RELATION ID ); 


Semeeadas a filled AND FILTER to the current FILTER 
entry ADD AND FILTER TO FILTER; 


S- clears the FILTER to make way for a new one 
emery CLEAR FILTER; 


=-- Writes a filled FILTER to an archive file for historical purposes 
euery WRITE FILTER; 


-- Fills the tactical display structure with TRACKs that pass FILTER 
-- requirements 
oeery FLLL TACPLOT; 


paeelags the system as to whether or not to accept input from a 
particular 


-- OWNSHIP sensor 

entry SET SENSOR_STATUS 
MmeeENSER : in SENSOR; 

SENSER STATUS : in STATUS ); 


-- Gets the current input status from a particular OWNSHIP sensor 
emery GET SENSOR STATUS 

(oe NSER : in SENSOR; 

SeNoeR STATUS = Out STATUS ); 


eee acs themeRACK DATABASE, sending each TRACK to an archive file. 
-- Also writes archived TRACK info and FILTER info to text files. 
s-esborts the GPS update task. 

Seatry SHUTDOWN; 
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end INTEGRATION SYSTEM; 


-- Retrieves GPS data every 4 seconds and adds a new OWNSHIP TRACK 
-- observation 
task GPS UPDATE TASK; 


-- Performs timing function ter UiNr oe! eeipaares 
task’ LINK Gyvene 1s 
entry START _LINK_UPDATE; 


end LINK CYCLE; 


end INTEGRATIONS S > ever KG, 


a eae aaa 
SS ESS ES SSS a ce ec ec ee ee ee ee 


-— Authors : Richard T. Irwin 
-- Willie K. Bolick 


== Dates e29 August. 139) 


ee aa ae ae a a nae i SS 
— cs es es we ee we ee 


with TRACK DATABASE PKG, VECTOR 2 PKG, CALENDAR, NAVIGATION PKG; 
use TRACK DATABASE PKG, VECTOR_2 PKG, CALENDAR, NAVIGATION PKG; 
package body INTEGRATION SYSTEM PKG is 

package APKG renames TRACK PKG.AMP STR; 

package VPKG renames TRACK _PKG.V_AND C_ STR; 

use APKG, VPKG; 

package INTEGER_INOUT is new INTEGER_IO ( INTEGER ); 

package TC_INOUT is new ENUMERATION IO ( TRACK CATEGORY ); 

use TC 7Neur. 


TRACK DB : TRACK DATABASE; 


DIST _AT FILT : ATOMIC FILTER; 
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WihecAT AT FILET : ATOMIC FILTER ( TRACK CATEGORY FILTER ); 
PLTFM ID AT FILT : ATOMIC FILTER ( PLATFORM IDENTITY FILTER ); 
AND FILTUR : AND FILTER; 

SigrUR : FILTER; 

ACTIVE TRACK : TRACK; 

OTHER TRACK : TRACK; 

OWNSHIP : TRACK; 

SYSTUM STATUS : SYSTEM STATUS; 


LAST_TRK_NUM : NATURAL := 0; 


eee: VPKG.VSTRING; 
Po2) > APKG.VSTRING; 


OBS : GLOBAL OBSERVATION; 
POS : GLOBAL POSITION; 


INUM : NATURAL; 


Poor) FILTER ; BOOLEAN; 


task body INTEGRATION _SYSTEM is 


begin 


loop 


select 


accept CREATE TRACK 
( OBS : in GLOBAL OBSERVATION; 
TRK CAT : in TRACK CATEGORY ) do 


Gee ealOLG Previous ACTIVE TRACK to TRACK DATABASE before creating 


elicw “Ole 


eh ORE AGE RED TRACK TO DATABASE ( ACTIVE TRACK, TRACK DB ); 
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CREATE TRACK GBS, LAST TRK_NUM, ACTIVES TRACKS)”, 
-~ Default is UNKNOWN, so don’t change if UNKNOWN 
if TRK CAT /= TRACK PKG.UNKNOWN then 
CHANGE TRACK CATEGORY ( ACTIVESIRAGK trent a 
end if; 


ADD _TRACK_TO DBASE ( ACTIVE_TRACK, TRACK_DB ); 


-- Keep OWNSHIP up-to-date 


at TRACK TDSNUMESk ( ACTIVE TRACE ) = 0 then 
OWNSHIP := ACTIVERERACK; 

end if; 

end; 

Or 


accept DELETE TRACK AND SEND TO HISTORY 
( TRK_NUM : in NATURAL ) do 


FIND_TRACK_IN DBASE ( TRK_NUM, ACTIVE TRACK, TRACK_DB ); 
DROP_TRACK FROM DBASE ( TRACK DB ); 


-- Set OWNSHIP as the ACTIVE TRACK following a deletion 
FIND _TRACK_IN DBASE ( 0, ACTIVE TRACK, TRACK DB ); 


end; 


accept ADD TRACK OBSERVATION 
( TRK_NUM : in NATURAL; 
OBS : in GLOBAL OBSERVATION ) do 


FIND _TRACK_IN DBASE ( TRK_NUM, ACTIVE TRACK, TRACK DB ); 
ADD_TRACK OBSERVATION ( ACTIVE TRACK, OBS ); 


== Keep OuNonle =up-to-Gate 
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if TRACK_ID_ NUMBER ( ACTIVE TRACK ) = 0 then 
OWNSHIP := ACTIVE TRACK; 


end if; 


end; 


accept ADD TRACK OBSERVATION 
( TRK_NUM : in NATURAL; 
Fee): in RELATIVE POSITION ) do 


mip TRACK IN DBASE ( TRK_NUM, ACTIVE TRACK, TRACK DB ); 


memeonvert the RELATIVE POSITION cbservation to a GLOBAL OBSERVATION 
weo).- MAKE GLOBAL OBSERVATION ( OWNSHIP, ACTIVE TRACK, POS ); 


ADD TRACK OBSERVATION ( ACTIVE TRACK, OBS ); 


end; 


geeepte SET TRACK IDENTITY 
@cRK NUM :; in NATURAL; 
iis 1m LDENTITY TYPE ) do 


FIND TRACK IN DBASE ( TRK_NUM, ACTIVE TRACK, TRACK_DB ); 
Sel TRACK IDENTITY ( ACTIVE TRACK, TID ); 


end; 


accept SET AMPL INFO 
( TRK_NUM : in NATURAL; 
AMP : in STRING ) do 


FIND TRACK _IN DBASE ( TRK_NUM, ACTIVE TRACK, TRACK_DB ); 
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-= Convert STRING to a VSTRING ( variable S22ING 


SET AMPL INFO ( ACTIVE_TRACK, VS2 ); 


end; 


accept SET PLATFORM CLASS 
( TRK_NUM : in NATURAL; 
PC : in STRING ) do 


FIND TRACKSIN DBASE ( TRKAGNEM, ACTIVE RACK the) ale 


-- Convert STRING to a VSTRING ( variable STRING ) 
VS1 := VSTR ( PBC ); 


SET PLATFORM Class (shell Van EAC ha ote) 


end; 


accept SET VESSEL NAME 
( TRK_NUM : in NATURAL; 
VES; in STRINGwpece 


FIND TRACK IN DBASE ( TRK UNUM, ACI TV Ee Ge) © eee 


-- Convert STRING to a VSTRING ( variable STRING ) 
VSI = VSTR saavEse.. 


SET_VESSEL_NAME ( ACTIVE TRACK, VS1 ); 


end; 


OL 
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Secepct SET ALTITUDE 
( TRK_NUM : in NATURAL; 
Mier): in DISTANCE ) do 


Bee TRACK IN DBASE ( TRK NUM, ACTIVE TRACK, TRACK DB ); 
PeteabliTUDE ( ACTIVE TRACK, ALT ); 


end; 


mecept GET CONTROL 
( TRK_NUM : in NATURAL; 
eet. Out CONTROL TYPE ) do 


FIND TRACK _IN DBASE ( TRK_NUM, ACTIVE TRACK, TRACK _DB ); 
CON := CONTROL ( ACTIVE TRACK ); 


end; 


Becept SET CONTROL 
( TRK NUM : in NATURAL; 
een; in CONTROL TYPE ) do 


FIND TRACK IN DBASE ( TRK_NUM, ACTIVE TRACK, TRACK_DB ); 
SET_CONTROL ( ACTIVE_TRACK, CON ); 


end; 


geccpe CHANGE TRACK CATEGORY 
( TRK_NUM : in NATURAL; 
eal seam TRACK ECATEGORY ) do 


o) 


FIND TRACK_IN DBASE ( TRK_NUM, ACTIVE_TRACK, TRACK_DB ); 
CHANGE TRACK _CATEGORY ( ACTIVE_TRACK, CAT ); 


end; 


accept BUILD WAYPOINT SPEcCIALy cit 
( POS : in GLOBAL_POSITION; 
TYME : in ABSOLUTE _TIME ) do 


-- Restore previous ACTIVE _TRACK to TRACK DATABASE before creating 
-- new one 


RESTORE ALTERED TRACK TO DATABASE ( ACTIVE TRACK SiGe eiete a. 


OBS.POSITION := POS; 
OBS .OBSERVATION TIME 
OBS.COURSE_AND_ SPEED 


TYME; 
MAKE CARTESIAN VECTOR 2 ( 0.0, 0.0 ); 


CREATE TRACK (— OBS, LAST PRKSNUM, CToBR TRACK a. 


-- Changes TRACK CATEGORY to SPECTAL PCUINi aie: Oi iars £1 
-- waypoint data 


BUILD WAYPOINT SPECIAL POINT S( SGT HERS TRACE Os eee 


ACTIVE TRACK 92] ¢ HER ERACK, 
ADD TRACK TO DBASE (“ACTIVE TRACK, “TRACK TEE we 


end; 


ee rk A ae eS a ee BUILD NAV HAZARD SPECIAL POINT.........) 
accept BUILD NAV_HAZARD SPECIAL POINT 
( OBS : in GLOBAL OBSERVATION ) do 


-- Restore previous ACTIVE TRAGwace TRACK DATABASE before creating 


a= COW One 


RESTORE ALTERED TRACK TO DATABASE ( ACTIVE TRACK, TRACK DB ); 


CREATE TRACK ( OBS, LAST _TRK_ NUM, OTHER TRACK ); 
-- Changes TRACK _CATEGORY to SPECIAL POINT, NAV_HAZARD & fills 
== Nav hazard data 


Bere NAV HAZARD SPECIAL POINT ( OTHER TRACK ); 


ACTIVE _TRACK := OTHER_TRACK; 
ADD TRACK _TO DBASE ( ACTIVE TRACK, TRACK_DB ); 


end; 


aecepe BUILD GENERAL SPECIAL POINT 
[Obs =: 1m GLOBAL OBSERVATION ) do 


-- Restore previous ACTIVE TRACK to TRACK DATABASE before creating 
-- new one 
RESTORE ALTERED TRACK TO DATABASE ( ACTIVE TRACK, TRACK DB ); 


Beet e TRACK ( OBS, LAST TRK_NUM, OTHER_TRACK }); 


-- Changes TRACK_CATEGORY to SPECIAL POINT, GENERAL 
BUILD GENERAL SPECIAL POINT ( OTHER TRACK ); 


ACTIVE_TRACK := OTHER_TRACK; 
ADD_ TRACK TO DBASE ( ACTIVE TRACK, TRACK _DB ); 


end; 


aecept BUILD PATH 
( PTS : in WAYPOINT ARRAY ) do 


=—- Restore previous ACTIVE TRACK to TRACK DATABASE before creating 


S= New one 
Bio LORE ALTERED TRACK TO DATABASE { ACTIVE TRACK, TRACK DB }; 
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-- Use lst path waypoint as last observation’s position 
OBS.POSITION == PTs ( 0 ) 2EOsiIiien 
OBS .OBSERVATION TIME NOW; 
OBS.COURSE AND SPEED MAKE CARTESIAN VECTOR _2 ( 0.0, C20 


li 


CREATE TRACK ( OBS, LAST TRKUNUM) Othe tea) 


-- Changes TRACK CATEGORY £6 PATHMGy else eoints 
BUILD PATH ( OTHERJTRACK ES 


ACTIVE TRACK := OTHER_TRACK; 
ADD TRACK TO DBASE ( ACTIVE TRACK, TRACK DB ); 


end; 


accept BUILD ABSOLUTE CIRCLE REGION 
( RAD = in) DISTANCE? 
CTR : in GLOBAL POSITION ) do 


-- Restore previous ACTIVE TRACK to TRACK DATABASE betore Crear iag 
-~ new one 


RESTORE ALTERED TRACK TO DATABASE (ACTIVE STRACK (PAC weer ©. 


-- Use circle center position as last observation’s position 
OBS-POSlliIoOn = —Fel Rn, 
OBS.OBSERVATION TIME 
OBS.COURSE_ AND SPEED 


NOW; 
MAKE CARTESIAN VECTOR 2 ( 020,020 2 


CREATE TRACK (SEBS, LAST _TRK_NUM, OTHERS TRACK NS 
—=< Changes TRACK CATEGOR = to REGION, CIRCLE, fABSsOLULE 26 fe elles 
-- circle data 


BUILD ABSOLUTE CIRCLE REGION ( OTHER TRACK, RAD, CTR ); 


ACTIVE_TRACK := OTHER TRACK; 
ADD_TRACK_TO_DBASE ( ACTIVE TRACK, TRACK DB ); 


end; 
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accept BUILD RELATIVE CIRCLE REGION 
( RAD : in DISTANCE; 

CTR : in RELATIVE POSITION; 

REF TRK NUM : in NATURAL ) do 


-- Get region’s reference TRACK’s position 
FIND TRACK IN DBASE ( REF TRK NUM, ACTIVE TRACK, TRACK DB ); 
OBS := MOST RECENT OBSERVATION ( ACTIVE TRACK ); 


CREATE TRACK ( OBS, LAST _TRK_NUM, OTHER TRACK ); 


See cuanges TRACK CATEGORY tO REGION, CIRCLE, RELATIVE & fills 


-- circle data 
BUILD RELATIVE CIRCLE REGION ( OTHER_TRACK, RAD, CTR, REF_TRK_NUM ); 


ACTIVE TRACK := OTHER_TRACK; 
ADD TRACK TO DBASE ( ACTIVE TRACK, TRACK DB ); 


end; 


ee «© @ © © © © © ® © ®& © ® @# @®& ® @ #8 © # @® # @ @ 


accept BUILD ABSOLUTE POLYGON _REGION 
( AVA : in ABSOLUTE VERTEX ARRAY ) do 


Sere otore previous ACTIVE TRACK to TRACK DATABASE before creating 


Saale w One 
RESTORE ALTERED TRACK TO DATABASE ( ACTIVE TRACK, TRACK DB ); 


-- Use lst polygon point as last observation’s position 
OBS.POSITION := AVA ( OQ ); 

Seo. oS 0 RVATION TIME := NOW; 

OBS.COURSE AND SPEED MAKE CARTESIAN VECTOR 2 ( 0.0, 0.0 ); 


GPEATE TRACK (OBS, LAST TRK NUM, OTHER TRACK ); 
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-—- Changes PRACK IC. eGo. are REGION, POLYGON, ABSOLUTE & fills 
-- vertex points 
BUILD ABSOLUTE POLYGON REGION ( OTHER. Eee era e es 


ACTIVE _TRACK := OTHER_TRACK; 
ADD TRACK TO DBASE ( ACTIVE TRACK, TRACK_DB ); 


end; 


accept BUILD RELATIVE POLYGON REGION 
( RVA : in RELATIVE VERTEX ARRAY; 
REF _TRK NUM : in NATURAL ) do 


-- Get region’s reference TRACK’s position 

FIND _TRACK_IN DBASE ( REF _ TRKANUM, ACTI VEST RACK TRAC e oer 

OBS := MOST RECENT OBSERVATION ( ACTIVE TRACK ); 

CREATE TRACK ( OBS, LAST TRK_NUM, OTHER TRACK ); 
-- Changes TRACK CATEGORY to REGION, POLYGON? RELATIVE G) 2aeee 
-- vertex points 


BUILD RELATIVE POLYGON REGION ( OTHER] TRACK) RVA) ee Eee eae 


ACTIVE TRACK” >= CTHBra Enters, 
ADD _ TRACK TO DBASE ( ACTIVE TRACK 73 Gh. @ooare, 


end; 


accept CHANGE COURSE 
( TRK_NUM : in NATURAL; 
CRS : in ANGLE ) do 


FIND TRACK IN DBASE ( TRK_ NUM, ACTIVE TRACK, TRACK DB ); 
CHANGE COURSE ( ACTIVE TRACK, CRS ); 


96 


end; 


accept CHANGE SPEED 
( TRK_NUM : in NATURAL; 
SPD : in SPEED ) do 


mee) TRACK IN DBASE ( TREK NUM, ACTIVE TRACK, TRACK DB ); 
SaeNGE SPEED ( ACTIVE TRACK, SPD ); 


end; 


geeept CHANGE GLOBAL POSITION 
( TRK_NUM : in NATURAL; 
POS : in GLOBAL POSITION ) do 


Bp TRACK IN DBASE ( TRK_NUM, ACTIVE TRACK, TRACK DB ); 
SaeaNGE GLOBAL POSITION ( ACTIVE TRACK, POS ); 


ena; 


accept MAKE DISTANCE ATOMIC FILTER 

( DAF_ATTRIB ID : in DISTANCE ATTRIBUTE_ID; 
DAF LIMIT : in DISTANCE; 

DAF_REF_TRK_NUM : in NATURAL; 

DAF RELATION : in RELATION ID ) do 


-- Find reference TRACK in database 
FIND TRACK IN DBASE ( DAF REF _TRK_ NUM, ACTIVE_TRACK, TRACK_DB ); 


MAKE DISTANCE ATOMIC FILTER ( DAF_ATTRIB_ID, DAF_LIMIT, 
ACTIVE TRACK, DAF RELATION, DIST AT FILT ); 


PPh wottear Tole TO ANDEEILIER™ { DIST AT FILT, AND FILTUR ); 
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accept MAKE TRACK CATEGORY ATOMIC FILTER 
( TCAF_ DESIRED TRK CAT : in TRACK CATEGORY; 
TCAF EQ REL ID : in EQUALITY_RELATION_ID ) do 


MAKE TRACK CATEGORY ATOMIC FILTER ( TCAF DESIRED TRK_CAT, 
TCAF EQ REL ID, TRK CATeAn 2 nies, 


ADD ATOMIC FILTER TO AND FILTER ( TRK_CAT AT FILT, AND _FILTUR ); 


end; 


accept MAKE PLATFORM IDENTITY ATOMIC FILTER 
( PIAF DESIRED PLAT ID : in IDENTITY TYPE; 
PIAF EQ REL ID : in EQUALITY RELATION ID ) do 


MAKE PLATFORM IDENTITY ATOMIC FILTER ( PIAF_ DESIRED PLAT _ID, 
PIAF EQ REL ID, PLTFM ED Ann Ins 


ADD ATOMIC FILTER TO AND FILTER ( PLUPM IDeAT Reb Nee eae 


end; 


accept ADD AND FILTER TO BIUMDERea> 


ADD_AND_FILTER_TO FILTER ( AND FILTUR, FILTUR ); 


end; 
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accept CLEAR FILTER do 
Seeak FILTER ( FILTUR ); 


end; 


mecept WRITE FILTER do 
Metis FILTER ( FILTUR ); 


end; 


pmecpt FILL TACPLOT do 
BMPlY TACPLOT; 


=— For all TRACKS in the database 
Beet in 0 .. LAST TRK NUM loop 


meen TRACK IN DBASE ( I, ACTIVE TRACK, TRACK DB ); 


amet TRACK is found 
af Pane DATABASE PKG.ACTIVE TRACK ( TRACI UE ) then 


-—- Things get tricky when the TRACK is a RELATIVE REGION. 
-- We need to retrieve the reference TRACK’s position to 
== Calculate the REGION’S Current poSition 

if TRK_CATEGORY ( ACTIVE TRACK ) = REGION then 


Pema sGlLON PLOMT ( ACTIVE TRACK ) = RELATIVE TO TRACK then 


-- Store the REGION’s track number 
TNUM := TRACK ID NUMBER ( Ae riy ee RACK ys 


if REGION CATEG ( ACTIVE TRACK ) = CIRCLE then 
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-- Find the reference’s position 
FIND TRACK IN DBASE ( RELATIVE_CIRCLE_REFERENCE_TRK_NUM 
( ACTIVE TRACK ), ACTIVE TRACK, TRACK _DB ); 
CURRENT POSITION ( ACTIVE_TRACK ); 
MOST RECENT OBSERVATION ( ACTIVE TRACK ); 


EG. 
OBS 


~~ Make the REGION the ACTEVBeiRACkK again 
FIND TRACK IN DBASE ( TNUM, ACTIVE] TRACK, S1e2Cho2as 


-~- Update the REGION’s reference position 
UPDATE RELATIVE CIRCLE REFERENCE STRATE OS (420i Ea ihee 
BOsey 
else -- RELATIVE POLYGON 


=-— Find the reterence’ Ss tesa erom 
FIND TRACK IN DBASE ( RELATIVE REGION REFERENCE TRK_NUM 
( ACTIVE TRACK ), ACTIVE TRACK, TRACK DB ); 
CURRENT POSITION ( ACTT beiEA eis 
MOST RECENT OBSERVATION Si eit BerEAek es); 


POS 
OBS 


—-—- Make the REGION the ACTIVie Ui Gia gaaan 
FIND TRACK IN DBASE ( TNUM, ACTIVE TRACK, TRACK DB ); 


-~- Update the REGION’s reference position 
UPDATE RELATIVE REGION REFERENCE TRK POS ( ACTIVE TRACK, 
POS»); 
EnGuvaet ; 


-- If the RELATIVE REGION’s course and speed don’t match 
-- the reference’s, add an observation 
if MOST RECENT OBSERVATION ( ACTIVE TRACK) awe melon 
ADD_TRACK OBSERVATION ( ACTIVE TRACK, OBS ); 
Ende ak; 
EnG: asi? 


Grice : 


—~ Test the TRACK against thee LLEEr 
PASSED FILTER := TEST FILTER 2ieeere ACTLVE TRACK )7; 
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Peels CRACK passes FILTER, add it to 


me PASSED FILTER then 

ADD TACPLOT ELEMENT ( ACTIVE TRACK 
emia) af ; 

ome if; 

end loop; 

end; 

Or 

meecoe OFT SENSOR_STATUS 

feoeNSER : in SENSOR; 

SeWoBR STATUS : in STATUS ) do 

See oTATUS ( SYSTUM_STATUS, SENSER, 

end; 

or 

Beecpt GET SENSOR STATUS 


moe NoBR ; in SENSOR; 
PeNoeR STATUS : out STATUS ) do 


Ine 


Pacer LOL 


SENSER STATUS ); 


peice Rh oLATUS := GET STATUS ( SYSTUM STATUS, 


end; 


or 


accept SHUTDOWN do 


BURGE ENTIRE DBASE ( TRACK DB ); 


WRITE_TRACK ARCHIVES TO TEXT FILE; 
WRITE FILTER ARCHIVES TO TEXT FILE; 


e00rE Gls UPDATE TASK; 
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SENSER ); 


end; 
end select; 
end loop; 


end INTEGRATION SYSTEM; 


task body GPS .UrUATE erases 
SECONDS :; constant DURATION © —=2 20, 


-— Update required every 4 seconds 
INTERVAL : constant DURATIONS :— 2) Se osceila, 


NEXT GPS UPDATE :; CALENDAR. TIME: =) CALENDARS 2G ae ei a, 
OBS : GLOBAL OBSERVATION; 

SENSER STATUS : STATUS; 

begin 


loop 


delay DURATION ( NEXT GPS UPDATE - CALENDAR.CLOCK ); 
INTEGRATION SYSTEM.GET SENSOR_STATUS ( GPS, SENSER STATUS ); 


if SENSER_ STATUS = UP then 


-- G@t OWNSHIP S posit ionwircreGe. 
OBS := GET GPS UPDATE; 


INTEGRATION SYSTEM.ADD TRACK OBSERVATION ( Op SOR soen 
end if; 


NEXT_GPS_ UPDATE := NEXT GPS UPDATE + INTERVAL; 
end loop; 


exception 


1Q2 


when STATUS ERROR | CONSTRAINT ERROR => 
Se@eotATUS ( SYSTUM_ STATUS, GPS, DOWN ); 


end GPS UPDATE TASK; 


maak DOOdy LINK CYCLE is 


SECONDS : constant DURATION := 1.0; 


—-— Update required every 4 seconds 


MMIEPRVAL : constant DURATION := 4 * SECONDS; 

NEXT LINK_UPDATE : CALENDAR.TIME := CALENDAR.CLOCK + INTERVAL; 
begin 

loop 


accept START LINK UPDATE; 
NEXT LINK UPDATE := NEXT _LINK_UPDATE + INTERVAL; 
delay DURATION ( NEXT LINK UPDATE - CALENDAR.CLOCK ); 


end loop; 


end LINK CYCLE; 


soe @& @ © © e@ @ @ @®& @ @ @& @® @& @& &®& ®@ @©& &® @ © #® 8@8 © #® © &@® ®@ @ © 8 © #® @©8 #© © @©& 8 © 8 8 © ® © @ © 8 @ @© 8 @© &@ #@ © © @ © © #© &® © & ®@® © &®& #@ 8© & 8 8 @ 


begin 
mull; 
Soe iINIEGRATION SYSTEM PKG; 
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APPENDIX C 


TRACK PACKAGE 


em me me em mr mr i rr rr rr rr i i i 
i a a 


—— Authors “2Rhichard . lc we 
-- Willie K. Bolick 


=-—, Date = 2ZogkugUst ee 


er er er i | 


-- Description : Defines abstract data type TRACK and associated 
—— functions and procedures 


eee eS elle 
i i i 


with ANGLE PKG, SPEED PKG, DISTANCE PKG, VELOCITY PKG, 
ABSOLUTE _TIME PKG, 


GLOBAL POSITION PKG, GLOBAL OBSERVATION PKG, VSTRINGS, 
RELATIVE POSITION PKG, DIRECT IO; 


use ANGLE PKG, SPEED PKG, DISTANCE PKG, VELOCITY PKG, ABSOLUTE TiMeaeee 
GLOBAL POSITION _ PKG, GLOBAL OBSERVATION PKG, RELATIVE POSITION PKG; 


Package) TRACK eER Gr. 


—— hongest Tengen of AMPi INES 
AMP LEN : constant INTEGER := 80; 


-- Longest length of V_NAME & S$ CLASS/A CLASS 
VES_AND_CLASS_LEN : constant INTEGER := 80; 


—- Maximum allowable points in a path 
MAX PTS IN PATH :; constant NATURAL ;= 50; 
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—-— Maximum number of history points of a TRACK to be displayed to the 
ser 


feeeeHISTORY PTS : Constant NATURAL := 300; 


-~—- Maximum allowable number of vertices in a polygon REGION TRACK 
MAX VERTICES IN POLYGON : constant NATURAL := 20; 


Suouype NUM PATH PTS 1s 
PewurAl range 0 .. MAX PTS IN PATH; 


Seieeype NUM HISTORY PTS is 
PetwRAL range 0 ,.. MAX HISTORY PTS; 


subtype NUM VERTICES is 
PeIURAL range 0 .. MAX VERTICES IN POLYGON; 


=ee PRACK history points 
type GLOB OBS ARRAY is 
eaeaye (| NUM HISTORY PTS range <> ) of GLOBAL OBSERVATION; 


type WAYPOINT TYPE is 

mecord 

Best TION : GLOBAL POSITION;—-- Position of waypoint 
fee TO: ABSOLUTE TIME;—--— Time to arrive at waypoint 


end record; 


type WAYPOINT ARRAY is 
oeeeay (| NUM PATH PTS range <> ) of WAYPOINT TYPE; 


type RELATIVE VERTEX ARRAY is 
@eray ( NUM VERTICES range <> ) of RELATIVE POSITION; 


type ABSOLUTE VERTEX ARRAY is 
meray ({ NUM VERTICES range <> ) of GLOBAL POSITION; 


type TRACK 1S private; 
myoe TRACK CATEGORY is 


( UNKNOWN, SURFACE PLATFORM, SUBSURFACE PLATFORM, AIR_PLATFORM, 
REGION, PATH, SPECIAL POINT, MAN_IN_ WATER, NON_DISPLAYABLE ); 


type LTDENTT Baek ees 
( FRIENDLY, HOSTILE, NEUTRAL, UNKNOWN ); 


type CONTROL TYPE is 
( LINK, LOCAL ),; 


type SPECIAL POINT CATEGORY is 
( GENERAL, WAYPOINT, NAV HAZARD ) ; 


type REGION CATEGORY is 
( CIRCLE, POLVGOln 


type REGION PLACEMENT is 
( ABSOLUTE, RELATIVE TO TRACK ); 


package AMP STR is new VSTRINGS ( AMP LEN }); 

use AMP STR; 

package V_AND C STR is new VSTRINGS ( VES_AND CLASS _ LEN ); 
use V_AND C_ STR; 


-- Creates a TRACK with its first observation 
procedure CREAT ean ACK 

( GO : in GLOBAL OBSERVATION; 

LAST TRACK ID : in out NATURAL; 

TRK "Out TRACK =. 


-- Deletes TRACK and sénds its” TRACK TYPE data, acai oem 
-— GLOBAL OBSERVATIONS tov second mao ecrace 

procedure DELETE TRACK AND SEND TO HISTORY 

(“TRK 2 an sOu be Tea Chae 


~~ Creates TRK_ FILE & OBS FILE 
procedure CREATE TRACKIEILES, 


-- Retrieves archived TRACK info from secondary storage. Reformats it 
TEIOUELS, 


-- a human readable format and writes it to a secondary storage text 
file. 


procedure WRITE TRACK ARCHIVES S0@Mia ia Dir, 


-- Adds an observation of a TRACK to an existing TRACK object 
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procedure ADD TRACK OBSERVATION 
menk : in out TRACK; 
GO : in GLOBAL OBSERVATION ); 


meme nenges/sets TRACK’s IDENTITY TYPE 
Meeeeodure SET TRACK IDENTITY 

etek : in out TRACK; 

ieee, 1m IDENTITY TYPE ); 


memenianges/sets TRACK’s AMPLIFYING INFO 
meocedure SET AMPL INFO 

eek > Out TRACK; 

AMP : in AMP STR.VSTRING ); 


—-— Changes/sets TRACK’s CLASS 

procedure SET PLATFORM CLASS 

[Merek =; in out TRACK; 

een VY AND C.STR.VSTRING );-- Class name 


-- Changes/sets TRACK’s VESSEL NAME 
procedure SET VESSEL NAME 

felmn : in out TRACK; 

fitemoein V AND C STR.VSTRING );,-- Vessel name 


-- Changes/sets TRACK’s ALTITUDE 
meocecure SET ALTITUDE 

Meme K =: an out TRACK; 

Papi: in DISTANCE );-- Altitude in yards 


-—- Changes/sets TRACK’s CONTROL TYPE 
Seacedure SET CONTROL 

meron ; OUL TRACK; 

Soi in CONTROL TYPE) ;—-— LINK/LOCAL control 


eeeceManges TRACK’s TRACK CATEGORY 
Beoceadure CHANGE TRACK CATEGORY 
Meni; In OUC TRACK; 

eee in TRACK CATEGORY ); 


-- Builds a WAYPOINT 
procedure BUILD WAYPOINT SPECIAL POINT 
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{(-TRK @“ Sat ouleenrRaACcK; 
POS : in’ GLOBALID EOSETION, 
TYME : in ABSOLUTE TIME });-- Time €@ adrrivesae Wwajeoame 


-- Builds a NAV_HAZARD 
procedure BUILD NAV HAZARD SPECIAL POINT 
( TRK +: in OCuGe eR ACh ae: 


—-- Builds ad CENERAISSERECTART © Lis 
procedure BUILD GENERAL SPECIAL POINT 
("TRK + if ue lec eke); 


=~ Bua fds sare uw 

procedure BUILD PATH 

( TRK: im Gut TRAe: 

PTS : in WAYPOINT ARRAY ); > > Pointe Ga ureceraan 


-- Builds an ABSOLUTE CIRCLE REGION whose center is an absolute 
-- GLOBAL POSITION 

procedure BUILD ABSOLUTE (CIRCLE RECT 

( TRK. Si neoube le ACT. 

RAD : in DISTANCE; shadaus Of scirclc 

CTR : in GLOBAL POSITIONS 4, Center Clerc: 


-- Builds a CIRCLE REGION whose center is relative to a reference TRACK 
procedure BUILD RELATIVE CIRCLE REGION 
( TERK 2: eel We olleuehenele: 
RAD :.in DISTANCE; —— Radiiiseot emcee 
CTR : in RELATIVE POSITION; —— Center se weer els gc laee 
-- to reference TRACK 
REF :; in NATURAL ); -- Reference track number 


-- Builds an ABSOLUTE POLYGON REGION whose vertices are absolute 
~- GLOBAL POSITIONS 

procedure BUILD ABSOLUTE POLYGON REGION 

( TRK 3s a Oure reece 

AVA : in ABSOLUTE VERTEX ARRAY ); 


-—— Builds a POLYGON REGION whose vertices are relative to a reference 
TRACK 


procedure BUILD RELATIVE POLYGON REGION 
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mere © in Out TRACK; 
mAs 6in RELATIVE VERTEX ARRAY; 
REF : in NATURAL ); -- reference track number 


—-- Returns an array of the TRACK’s history points as reflected in the 
-- TRACK DATABASE 

procedure TRACK HISTORY 

meee =: in TRACK; 

Mime ORY PTS ARRAY :; in out GLOB OBS ARRAY ); 


-- Changes the TRACK’s course and adds a new observation 
eeeeusudlly only invoked on OWNSHIP’s TRACK 

procedure CHANGE COURSE 

reek =: In Out TRACK; 

CRS : in ANGLE ); 


-- Changes the TRACK’s speed and adds a new observation 
—-- Usually only invoked on OWNSHIP’s TRACK 

procedure CHANGE SPEED 

meek : in out TRACK; 

Peme: in SPEED ); 


-—- Changes TRACK’sS position without recomputing course and speed 
—-- Used as a correction measure 

procedure CHANGE GLOBAL POSITION 

[een =: in Out TRACK; 

fee; 1m GLOBAL POSITION ); 


—-— Returns TRACK number as generated by the system 
function TRACK ID NUMBER 
WeuRm = TRACK ) return NATURAL; 


mes ceuris TRACK’ s IDENTITY TYPE 
Bamel ion TRACK IDENTITY 

fea RACK ) return IDENTITY TYPE; 
eeeseeurns TRACK’s AMPLIFYING INFO 
Function AMPL INFO 


enn. LRACK ) return AMP STR.VSTRING; 


ee RetEUrNS TRACK’ s CLASS 
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function PLATFORM CLASS 
( TRK : TRACK ) return V_AND_C_STR.VSTRING; 


—--— Returns TRACK vessel’s name 
function VESSEL NAME 
( TRK : TRACK )) return V_AND C STR.VSTRING; 


-—- Returns TRACKS TRACK CATEGGr 
funct lon TRI ATEGOr © 
( TRK-: TRACK )s neturm, TRACK SCARS, 


-- Returns TRACK’S CONTRO Tre 
function CONTROL 
( “TRK 3: TRACK) rerurnm CONTROL TYEE; 


-—- Returns TRACK’s true course as reported/calculated in its 
-- MOST RECENT OBSERVATION 

function TRUEVEGURCE 

( TRK. = TRACK Se return ANGE: 


-- Returns TRACK’s true speed as reported/calculated in its 
== MOST RECENT2OB Son VATION 

function TRUE SPEED 

( TRK “:> TRACK pe seturenm oP Err, 


-- Returns TRACK’s true course and speed as reported/calculated in its 
—— MOST _ RECENT OBSERVATION 

fUNnCtION TRUE AVS OG iis 

( TRK * TRACK”) reétuiney Shee rime 


-- Returns target TRACK’s relative motion ( course and speed ) aS seea 
-- from the reference TRACK 

function TARGET RELATIVES Veneer ir 

( REFERENCE TRACK, 

TARGET TRACK : TRACK ) retugnyySLOerE 


-- Returns target TRACK’s relative course as seen from the reference 
TRACK 


FUNCE LOM RELATIVE COURSE 
( REFERENCE TRACK, 
TARGET TRACK > TRACK) returma 2NGler 
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—-— Returns target TRACK’s relative speed as seen from the reference 
TRACK 


memerlon RELATIVE SPEED 
(esaFERENCE TRACK, 
TARGET TRACK : TRACK ) return SPEED; 


-- Returns TRACK’s altitude in yards 
Pamer lon ALTITUDE 
Mebek =: TRACK ) return DISTANCE; 


=] Returns TRACK’sS current DR ( Dead Reckoning ) position as calculated 


aaerrom 1tS MOST RECENT OBSERVATION ( last known position, course, 
speed, 


== and time 
ZUnction CURRENT POSITION 
@elnk ; TRACK ) return GLOBAL POSITION; 


—— Returns bearing to target TRACK from reference TRACK with respect to 
-- reference TRACK’s heading ( not true north ) 

function RELATIVE BEARING 

( REFERENCE TRACK, 

eect TRACK : TRACK ) return ANGLE; 


-- Returns bearing to target TRACK from reference TRACK with respect to 
true 


a Orth 

function TRUE BEARING 

( REFERENCE TRACK, 

TARGET TRACK : TRACK ) return ANGLE; 


@-)seCturns TRACK’S last entered GLOBAL OBSERVATION 
function MOST RECENT OBSERVATION 
Mek: TRACK ) return GLOBAL OBSERVATION; 


eee Uris Cadet eCgony Of SPECIAL POINT TRACK 
mENetlOMmor EC VROINT CATEGORY 
welt TKACh) retumm SPECIAL POINT CATEGORY; 


meee Uo eo GOEBEL OBSERVATION based om TRACK’s relative position to 


—-— reference TRACK. The TRACK’s course and speed are calculated based 


—-- on its new position and its MOST RECENT OBSERVATION 


Wen 


function MAKE GLOBAL OBSERVATION 

( OWNSHIP TRACK : TRACK; 

TARGET TRACK |) PRneK 

TGT REL POS : RELATIVE POSITION ) return GLOBAL OBSERVATION; 


-- Returns category of REGION 2.7. 
LUNCELON REGTON CAT EG 
( TRK ; TRACK ) return REGION CAieerny, 


-- Returns method of REGION placement ( ABSOLUTE, RELATIVE TO TRAGi as 
function REGION PLCMT 
( TRK ; TRACK ) return REGION PLACEMENT; 


-- Returns radius of CIRCLE REGION in yards 
function CIRChEsRApa 
( TRK : TRACK ) return DISTANGs, 


-- Returns location of ABSOLUTE CIRCLE REGION center 
FNNEetae Mm ABS CIRCEE (CENiear, 
( TRK : TRACK ) return GLOBAL POSITION; 


-- Returns bearing and range from reference TRACK to RELATIVE CIRCLE 
REGION 


—- center 
function REL CIRCLE CENTER 
( TRK : TRACK ) return RELATIVE POSITION; 


-~= Returns all waypoints of a PATE 
TUNG te OM PATH POINTS 
( TREKS: TRACKS re ccr urem WAYPOINT ARRAY; 


--— Return location of and time to waypoint 
function WAYPNT 
(TERK =: ST RAG ret uien WAYEOINT Si vee, 


-- Returns all vertices ( bearings and ranges from reference TRACK ) of 
a 


-- RELATIVE POLYGON REGION 
function REL REGION VERTICES 
( TRK : TRACK ) return RELATIVE VERTEX ARRAY; 


lez 


-—— Returns all vertices ( earth coordinates ) of an ABSOLUTE POLYGON 
REGION 


function ABS REGION VERTICES 
( TRK : TRACK ) return ABSOLUTE VERTEX ARRAY; 


—-— Returns reference TRACK number of a RELATIVE CIRCLE REGION 
PunNetion RELATIVE CIRCLE REFERENCE _ TRK_NUM 
ferRK : TRACK ) return NATURAL; 


-- Returns the position of the reference TRACK of a RELATIVE CIRCLE 
REGION 


function RELATIVE CIRCLE REFERENCE TRK_ POS 
Merk = TRACK ) return GLOBAL POSITION, 


—- Returns reference TRACK number of a RELATIVE POLYGON REGION 
function RELATIVE REGION REFERENCE TRK_ NUM 
merRK : TRACK ) return NATURAL; 


-- Returns the position of the reference TRACK of a RELATIVE POLYGON 
REGION 


function RELATIVE REGION REFERENCE TRK POS 
Meek ; TRACK ) return GLOBAL POSITION; 


S- Updates position of RELATIVE CIRCLE REGION’s reference TRACK 
Meceedure UPDATE RELATIVE CIRCLE REFERENCE TRK POS 

meek +: in Out TRACK; 

=): in GLOBAL POSITION ); 


—- Updates position of RELATIVE POLYGON REGION’s reference TRACK 
procedure UPDATE RELATIVE REGION REFERENCE TRK POS 

meek £ in out TRACK; 

Gee) in GLOBAL POSITION ); 


pragma INLINE ( CREATE TRACK, DELETE TRACK AND SEND TO HISTORY, 
CREATE TRACK FILES, WRITE TRACK ARCHIVES TO TEXT FILE, 
ADD TRACK OBSERVATION, SET TRACK IDENTITY, SET AMPL INFO, 
SET PLATFORM CLASS, SET VESSEL NAME, SET ALTITUDE, 
SET CONTROL, CHANGE TRACK CATEGORY, 
BUILD WAYPOINT SPECIAL POINT, BUILD NAV HAZARD SPECIAL POINT, 
BUILD GENERAL SPECIAL POINT, BUILD PATH, 
BUILD ABSOLUTE CIRCLE REGION, BUILD RELATIVE CIRCLE REGION, 
BUILD ABSOLUTE POLYGON REGION, BUILD RELATIVE POLYGON REGION, 
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TRACK HISTORY, CHANGE COURSE, CHANGE_SPEED, 

CHANGE GLOBAL POSITION, TRACK_ID NUMBER, TRACK IDENTITY, 

AMPL INFO, PLATFORM CLASS, VESSEL _NAME, TRK_CATEGORY, CONTROL, 
TRUE COURSE, TRUE SPEED, TRUE VELOCITY, 

TARGET RELATIVE VELOCITY, RELATIVE COURSE, RELATIVE SPEED, 
ALTITUDE, CURRENT POSITION, RELATIVE BEARING, TRUE BEARING, 
MOST RECENT OBSERVATION, SPEC POINT CATEGORY, 

MAKE GLOBAL OBSERVATION, REGION CATEG, REGION PLCMT, 

CIRCLE RADIUS, ABS CIRCLE CENTER, REL CIRCLE CENTER, 

PATH POINTS, WAYPNT, REL REGION VERTICES, ABS REGION VERTICES, 
RELATIVE CIRCLE REFERENCE TRK NUM, 

RELATIVE CIRCLE REFERENCE TRK POS, 

RELATIVE REGION REFERENCE _TRK NUM, 

RELATIVE REGION REFERENCE TRK POS, 

UPDATE RELATIVE CIRCLE REFERENCE TRK POS, 

UPDATE RELATIVE REGION REFERENCE TRK POS ); 


private 


type SPECIAL POINT TYPE 

( S_P_CAT : SPECIAL POINT CATEGORY := GENERAL ) is 
recora 

Case voeere. iis 

when WAYPOINT => 

WAYPT : WAYPOINT TYPE; 

when others => 

bik lst 

end case; 


end record; 


Lype PATH ver 


( PIS : NUMSEATH Piss: — CO) aie 
record 
WAYPTS : WAYPOINT ARRAY ( O53 PTS 


end record; 


type REL VERTEX TYPE 


( PTS*:) NUM VERTICES =3—.0.)eas 
record 
VERTICES : RELATIVE VERTEX ARRAY ( 0 .. PTS ); 


end record; 
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type ABS VERTEX TYPE 


Mees : NUM VERTICES := 0 ) is 
record 
Pee@iChS : ABSOLUTE VERTEX ARRAY ( 0 .. PTS ); 


end record; 


type REGION TYPE 

@eeeG CAT : REGION CATEGORY := CIRCLE; 

REG PLACEMT : REGION PLACEMENT := ABSOLUTE ) is 
record 

Saoe REG CAT 1s 

when CIRCLE => 

means : DISTANCE;-- Circle radius 

case REG PLACEMT is 

when ABSOLUTE => 


feemeeNiPR : GLOBAL POSITTION;-- Circle center posit 

when RELATIVE TO TRACK => 

PermerNiihR ; RELATIVE POSITION;-- Circle center posit 
=—sreclative to refi trk 

Bee BRENCE TRACK] ; NATURAL; -- Ref track number 

eek POSTTION] ; GLOBAL POSITION;-- Ref track position 

end case; 


when POLYGON => 
Base KEG PLACEMT is 
when ABSOLUTE => 


eee vERTTCES : ABS VERTEX TYPE;-—-— Vertex positions 
when RELATIVE TO TRACK => 
BeeevERTICES : REL VERTEX TYPE;—-- Vertex positions 
ae Selden veoeeomret ~UrK 
REFERENCE TRACK2 : NATURAL; -- Ref track number 
Pee lik POSITIONZ ; GLOBAL POSITION;-- Ref track position 
ema Case; 
emo Case; 


end record; 


type TRACK TYPE 


( CATEGORY : TRACK CATEGORY := UNKNOWN ) is 
meCOrd 

TRACK ID ; NATURAL;-- Track number 

AMPL INFO : AMP STR.VSTRING := AMP STR.NUL; 


ES) 


CONTROL : CONTROL TYPE := LOCAL; 


case CATEGORY 1s 

when SURFACE PLATFORM | SUBSURFACE PLATFORM => 

S CLASS : V_AND_C_STR.VSTRING;-- Vessel class name 
S ID: TDENTI Gey es =: — Une, 

V_NAME ; V_AND C STR.VSTRING;—— Vessel s name 

when AIR PLATFORM => 

A_CLASS : V_AND_C STR. VSTRING; ~~ 3a Crate 
A_ID :° IDENTITY PYPEoe— UNKOUN, 

ALTITUDE : DISTANCE; 

when SPECIAL POINT => 

S. P TYPE“: "SPEC LAER OTN Ty wer, 

when PATH => 

P TYPE eee Al ee Eee 

when REGION => 

R TYPE : REGION TYPE; 

wien Ochers |= = 

Tide le- 

end case; 


end record; 


subtype SURFACE TRACK TYPE is TRACK TYPE (SURFACE (PEATE O ta. 
subtype SUBSURFACE TRACK TYPE is TRACK TYPE (SUBSURFACE PLATFORM) ; 
subtype AIR_TRACK TYPE is TRACK TYPE ( AIR PLATFORM ); 

subtype REGION TRACK TYPE is TRACK TYPE ( REGION ); 

subtype PATH TRACK TYPE iS TRACKR YEE (e. uiaa 

subtype SPECIAL POINT TRACK TYPE is TRACK TYPE ( SPECIAL POINT ); 
subtype MAN IN WATER TRACK TYPE is TRACK TYPE ( MAN_IN WATER ); 
subtype NON DISPLAYABLE TRACK TYPE is TRACK TYPE ( NON DISPLAYABLE ) ; 


-- Linked list structure that stores a TRACK’s GLOBAL OBSERVATIONS 
Eype TRACKSCES, 

type TRACK OBS PTR tssaccess, TRAekoe a, 

EyYee) TRACKSORS as 

record 

GLO_OBS : GLOBAL OBSERVATION; 

NEAT OBS -: TRACK2OBSUPIR, 


end record; 


type TRACK is 
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me cord 

feeeek DATA ; TRACK TYPE; 

MemeORS : TRACK OBS PTR;-— Pointer to first 
—— OOsenvatl1 On 


end record; 


Ser esucture used to write TRACK observations to DIRECT IO file 
myyoe TF OBS is 

record 

feioM : NATURAL; -—-— Track number 

GO : GLOBAL OBSERVATION; 

end record; 


package TRACK DATA OUT is new DIRECT IO ( TRACK TYPE ); 
Semerege TRACK OBS OUT is new DIRECT IO ( T OBS ); 
fe], TRACK DATA OUT, TRACK OBS OUT; 


end TRACK PKG; 


[-niicvesunticmvuatitcensuntie;sntiasantiananntiassnstiaasndtiaanstinastienstiometinmzm=panstieenndtisensaticadianttmdtiamatt amet amadtimediommndiommedmtemedmamadirmudtiemudiameetimsadtiammatiamn timed mediaeattemedaaedioesatiaendtiamedtiomaedtemuatiramadimadtiemmnttrmuedmiamanttmmetisssadieesestieentiemandtirensatiaeantme ee ie ee aT ren eee ne ns 
a i 


PeeoaemnOors : Richard T. Irwin 
—- Willie K. Bolick 


Seebate : 29 August 1991 


mm rm a a a a a rr re a re a re a re ae ae ee 
—_— er rr ae ee ee ee ae ee ee ee eS 


with UNCHECKED DEALLOCATION, RELATIVE TIME PKG, VECTOR _2 PKG, DIRECT_IO, 
MATH, TEXT IO; 


use RELATIVE TIME PKG, VECTOR 2 PKG, TEXT IO; 


package body TRACK PKG is 


mmeceauce CREATE TRACK 
( GO : in GLOBAL OBSERVATION; 


iy 


LAST TRACK _ID : in out NATURAL; -- Track number ( global var ) 
TRK 2 Cub feck) 2s 


T © 7 UTRACKIORSEEIR, 
NEW TRK : TRACK; 


begin 

NEW TRK.TRACK DATA.TRACK_ID := LAST_TRACK_ID; 

TO) ;= new TRAGCKICES, 

T_O;GLO OBS jaca, 

NEW TRK, TRK ORG e)— mo; 

LAST TRACK ID := LAST TRACK ID + 27—— Increment) (or sue eer 
TRK := NEW _TRK; 


end CREATE TRACK; 


procedure DELETE TRACK AND SEND TO HISTORY 
( TREK = Ain. Out, TRACK meas 


procedure BREE Sebo rs 
new UNCHECKED DEALLOCATION ( TRACK _OBS, TRACK_OBS_ PTR ); 


Tl, T2 = TRACKHOBeEEaE, 
T DATA : TRACK TYPE; 


LTO ewok. 


TRK_FILE ; TRACK DATA OUT. FILESTYPR;—— Pilew@.on peek. i 
OBS_FILE : TRACK OBS OUT.FILE TYPE;—— Pile for TRACK obServataonae 


T_INDEX = NATURAL;—-— Index coOuncer sone ie ams 
O_INDEX : NATURAL;—— Index (counter stores b om Ene 


begin 
—=-Open DIRECT TO*amehiverrries 


TRACK_DATA_OUT.OPEN ( TRK FILE, INOUT FILE, “TRK FILE” ); 
TRACK_OBS OUT.OPEN ( OBS FILE, INOUT FILE, “OBS FILE” ); 


118 


memset sizes Of both files & Set write indices to their sizes + 1 


[eiNDEX := NATURAL ( TRACK DATA OUT.SIZE ( TRK FILE ) ) + 1; 
OQ INDEX := NATURAL ( TRACK OBS OUT.SIZE ( OBS FILE ) ) + 1; 
MeoATA >= TRK.TRACK DATA; 


eer ite TRACK DATA to file 
Meeeh DATA OUT.WRITB ( TRK FILE, T DATA, TRACK DATA OUT.POSITIVE COUNT 
MeEP INDEX ) ); 


memGet pointer to first TRACK observation 
fee IRK.TRK OBS; 


-- Assign TRACK number to TRACK observation node about to be written so 
See Can later be retrieved & correlated to its TRACK DATA 
T O.T NUM := T _DATA.TRACK_ID; 


—— Write all TRACK observations to file, freeing allocated memory along 
—— the way 

ole T1 /= null loop 

lees O ;= T1.GLO OBS; 

ieee OBS OUT.WRITE ( OBS FILE, T 0, TRACK OBS OUT.POSITIVE COUNT 

mo INDEX ) ); 


O INDEX := O INDEX + 1; 
fee-= T1.NEXT OBS; 

FREE OBS ( Tl ); 

ms := T2; 

eve loop; 


mer DATA OUT.CLOSE ( TRK FILE ); 
eek OBS OUT.CLOSE ( OBS FILE ); 


end DELETE TRACK AND SEND TO HISTORY; 


Peeecedure CREATE TRACK FILES is 


TRK FILE : TRACK DATA OUT.FILE TYPE; 
OBS FILE : TRACK OBS OUT.FILE TYPE; 


ee, 


begin 


TRACK DATA OUT.CREATE ( TRK FILE, INOUT FILE, “TRK_FILE” ); 
TRACK OBS OUT.CREATE ( OBS FILE, INOUT FILE, “OBS FILE” ); 
TRACK DATA_OUT.CLOSE ( TRK FILE ); 
TRACK OBS OUT.CLOSE ( OBS FILE ); 


end CREATE TRACK FILES; 


« thehsias. 5 eee WRITE TRACK ARCHIVES TO TEXT FILE.......) 
procedure WRITE TRACK ARCHIVES TO TEXT FILE is | 


TOOATA 2) TRACK Tea, 

TO 2) 1 OBS, 

TRK_NUM : NATURAL;-- Track number 
FINISHED : BOOLEAN := FALSE;-- Flag to show when finished writing 
T CAT : TRACK CATEGORY; 

AMP INFO : AMP STR.VSTRING; 

CTs: CONTRO rs 

CLASS : V_AND C STR.VSTRING; 

NAME : V_AND C_STR.VSTRING; 

IDENTS - s1( DENT Eye bee, 

SPEC PT > SEECIAl ER Cil TDeGATE Cores, 
GLO_POS : GLOBAL POSITION; 

REL POS >) REAM aes Lich, 

ABS TIME : ABSOLUTE TIME; 

NAT NUM : NATURAL; 

LAT DIR : NORTH SOUTH; 

LONG DIR : EAST WEST; 

LAT D, 

LAT M, 

BAT Se 2) NAR 

LONG _D, 

LONG_M, 

LONG _S : NATURAL; 

Y, M, D : NATURAL; 

5. “ee LOAT- 

REG CAT : REGION CATEGORY; 

REG PL : REGION PLACEMENT; 

DASHES : STRING (1 .. 80 ) := (7OTHERSS— ee 
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DOTS 


TRK_ FILE 
OBS FILE 
TEXT FILE 


Ss CR UNG eee 


Sumiec= (OTHERS => “37 ); 
TRACK DATA OUT.FILE_ TYPE; 
TRACK OBS OUT.FILE TYPE; 


TEXT TOeb ELE TYPE; 


eet eet tee ttt t+ +PRINT GLOBAL POSITION++++++44+4+4+4++4+4++4++4++ 


—— Prints TRACK observation points as earth coordinates to text file 
meeeccdure PRINT GLOBAL POSITION is 


begin 

See LATITUDE ( GLOUPOS, tie. Sal uaAT OM, UAT Ss ya 
See LONGITUDE ( GLO POS, LONG DIR, LONG D, LONG M, EONGHo. 
Poet TEXT FILE, NATURAL’ IMAGE ( JbyeVie | Be: 

Eee TEXT FILE, NATURAL’ IMAGE ( AM a; 

moe (| TREAT FILE, NATURAL’ IMAGE ( bAT YS jae; 

meecAl DIR = Nethen 

ee TEXT FILE, “ N “ ); 

else 

meme ( TEXT FILE, “ S “ ); 

emo if; 

ae SSE ATF IGE, NATURAL’ IMAGE ( LONG D ) ); 

gee ( SEAT FILE, NATURAL’ IMAGE ( LONG M ) ); 

Pelet TEXT FILE, NATURAL’ IMAGE ( LONG S ) ); 

if LONG DIR = W then 

Eur ( ee EE, Pye aa. 

else 

Bor ( Poor LEE, eA Ek Aa 

end if; 


ome PRINT GLOBAL POSITION; 


FHFFFFFAFTTT+FFF44+4+4+4+4+4+4+4+4+4+4++4++PRINT OBSERVATION TIME++++++++++++4++4+4+4+4+44 


See rants time Of TRACK observation as mm/dd/yy hh:mm:ss 


zt 


procedure PRINT OBSERVATION TIME is 


begin 

Y := YEAR ( ABS TIME ); 

M := MONTH ( ABS _TIME ); 

D := DAY ( ABS TIME ); 

S := TIME OF DAY ( ABS TIME ); 

PUT ( TEXT FILE, NATURAL’ IMAGE ( M ) ); 

PUT “(oTEXT aE ee ae 

PUT ( TEXT FILE, NATURAL’ IMAGE ( D ) ); 

PUT ( TEXELE ILE 

PUT ( TEXT FILE, NATURAL’ IMAGE ( Y -— 1900 ) ); 

PUTT ( TEX? Bila ee 

PUT ( TEXT FILE, NATURAL’ IMAGE ( HOURS ( TIME OF_DAY ( ABS TIME ) ) ) ); 
PUT ( TEXTS Pel ae, 

aa ( TEXT FILE, NATURAL’ IMAGE ( MINUTES ( TIME OF _DAY ( ABS TIME ) ) ) 
; 

PUL (TEX Pee eee ae 


PUT () TEATIEITLE  SNATUR A Srv CE als U SECONDS ( TIME OF Dea 
( ABS TIME) ) ) ) ); 


end PRINT OBSERVATION: TIME, 


ar rs a a a a a a a a a a a a a a a a a eee ee ee ee 
i ee ee ee i SS SS LS SL LS LL LL LL CL LS LS LS LL LS LS EL LS ES LS LS LS ES ES ee ee a ee ee ee 


begin —-- WRITE TRACK ARCHIVES TO TEXT FILE 
== Open DIRECT 16 TRACK a¥ Giavc yaks 
TRACK _DATA_OUT.OPEN ( TRK_FILE, INOUT FILE, “TRK_ FILE” ); 


TRACK OBS OUT.OPEN ( OBS FILE, INOUT BIlE,® Cbg tte ee 


—-— Create text file for TRACK history 
TEXT _IO.CREATE ( TEXT FILE, NAME So Dee ene 


while NOT TRACK DATA _OUT.END OF FILE ( TRK FILE ) loop 
-- Read in all unique TRACK DATA records one at a time 


TRACK DATA_OUT.READ ( TRK FILE, T DATA ); 
TRK_NUM := T_DATA.TRACK ID;—-- Get TRACK num pore e oma @eniea ae 
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--SObservactons o2n OBS FILE 


peeread in & write TRACK DATA info to text file 


T CAT := T_DATA.CATEGORY; 

AMP INFO := T DATA.AMPL INFO; 

PUT LINE ( TEXT FILE, DASHES ); 
Smee TEXT FILE, “TRACK NUMBER :” ); 
PUT ( TEXT FILE, NATURAL’ IMAGE ( TRK NUM ) ); 
pemecOL ( TEXT FILE, 40 ); 

femee TEXT FILE, “CONTROL : “ ); 

if T DATA.CONTROL = LINK then 

eye TEXT FILE, “LINK” ); 

oc 

Suis TEXT FILE, “LOCAL” ); 

end if; 

mext 10.NEW LINE ( TEXT FILE ); 


PUT ( TEXT FILE, 
Bem ( TEXT FILE, 
TEXT IO.NEW LINE 
Pom ( TEXT FILE, 


ease T CAT is 


when UNKNOWN => 

PUT ( TEXT FILE, 
TEXT IO.NEW LINE 
PUT LINE 


“AMPLIFYING INFO : ™“™ ); 
PUPeoUR eo the AME SINEO. ) 
( Teer TLE) 

PIRACK CATEGORY = ™ 


y 


); 


“UNKNOWN” ); 
( TEXT FILE ); 


( TEXT FILE, DASHES ); 


when SURFACE PLATFORM => 


menos ;= T DATA.S CLASS; 
NAME := T DATA.V_ NAME; 
moan :— T DATA.S ID; 
pum ( TEXT FILE, 


TEXT _IO.NEW_LINE 
emiee( TEXT FILE, 
Pome TEXT FILE, 
TEXT IO.NEW LINE 
Pur ( TEXT FILE, 


V_AND C STR.STR ( CLASS ) 


“SURFACE PLATFORM” )j; 
(apc) 901) a 

pCliaps hs) \); 

); 
ext eee); 


EDEN This 2 s )e; 


N23, 


case IDENT 1s 
when UNKNOWN => 

PUT ( TEXT FILE, “UNKNOWN” ); 
when FRIENDLY => 
PUL ( (EXT FilGe FRIENDLY 35 
when HOSTILE => 

PUT (@TEXTOEI Ee HOSTER aes 
when NEUTRAL => 

PUT ( TEXT FI Ley NEUIRA ae 


end caseé; 


TEXT_IO.NEW_LINE ( TEXT FILE ); 

PUT ( TEXT FILE, “VESSEL NAME: | ae, 

PUT ( TEXT_FILE, V_AND C STR.STR ( NAME ) ); 
TEXT 1O.NEW LINE @ (S9EX Tee) 

PUT LINE S(TEAT FILE, SDASHES es), 


when SUBSURFACE PLATFORM => 
PUT ( TEXT FILE, “SUBSURFACE PLATFORM” ); 


CLASS ™=—) 1 DATASc uence, 
NAME := T DATA.V_NAME; 
IDENT (— epaAnemcmin, 


TEXT_IO.NEW_LINE ( TEXT FILE ); 

PUT “( TERE Ree Geto eee, 

PUT ( TEXT FILE, VOAND) € STRYSPR age? somes 
TEXT -10.NEW LINE (@TEXTSEIEE 

PUT ( TEAT OP ULE, DENI eee 


case IDENT is 

when UNKNOWN => 

PUT ( TEXT FILE, “UNKNOWN” ); 
when FRIENDLY => 

PUT (STEAT FILE, “PRIEN@ ivan, 
when HOSTILE => 

PUT ( TEXT PILE “HOST iin ar 
when NEUTRAL => 

PUT ( TEXT FILE, “NEUERAL “on 
end case; 


TEAL lO S NEW DINE TEA EOP Ties, 
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Boies TEXT PIE, “VESSEL NAME : “ ); 
PUT ( TEXT FILE, V_AND C_STR.STR ( NAME ) ); 
TEXT IO.NEW LINE ( TEXT FILE )j; 

PUT LINE ( TEXT FILE, DASHES ); 


wien ALR PLATFORM => 
Bume( TEXT FILE, “AIR PLATFORM” ); 
CLASS TeWATA. A CLASS, 
MeeENT := T DATA.A_ ID; 
BEAT TO.NEW LINE ( TEAT FILE ); 
Piet TEXT FILE, “CLASS : “ ); 
Pee, TEXT FILE, V AND CeSTR,STRO( CLASS ) ); 
fee lO.NEW LINE ( TEXT FILE ),; 
See TEXT FILE, “IDENTITY : ~ ); 


case IDENT is 

when UNKNOWN => 

PUT ( TEXT FILE, “UNKNOWN” ) ; 
when FRIENDLY => 

Bute, TEXT FILE, “FRIENDLY” ),; 
when HOSTILE => 

Pee TEXT FILE, “HOSTILE” ); 
when NEUTRAL => 

Pots { TEXT FILE, “NEUTRAL” ); 


end case; 


te lO.NEW LINE ( TEXT FILE ); 
Been INE ( TEXT FILE, DASHES ); 


when REGION => 
REG CAT := T DATA.R TYPE.REG CAT; 
BeGeeG :— T DATA.R TYPE.REG PLACEMT; 
EUG TEXT FILE, “REGION” ); 
GeerecOlL { TEXT FILE, 35 ); 


ease reg Cat 1s 
when CIRCLE => 


EU etree PEE, CIRCLE” ); 
eo COS ( ITEAT FILE, 45 ); 
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case REG IU iees 


when ABSOLUTE => 

GLO POS := T_DATA.R_TYPE.ABS_ CENTER; 
PUP TEXT PILE, “ABSOLULE 
TEXT IO.NEW LINE ( TEXT FILE ); 
PUT { TEXT FILE) “CIRCLE CENTER Ge awe, 
PRINT GLOBAL POSITION; 


when RELATIVE TO TRACK => 
PUT ( TEXT FILE, “RELATIVE TO eee. ae, 
NAT NUM := T_DATA.R_TYPE.REFERENCE TRACK1; 
PUT ( TEXT FILE, NATURAL’ IMAGE ( NAT_NUM ) ); 
TEXT _IO.NEW LINE ( TEXT FILE ); 
PUT LINE ( TEXT FILE, “BRG 7 RG PROM Ss); 
PUT ( TEXT FILE, REE RENCE PR AC ae 
NAT_NUM := NATURAL ( RADIANS TO DEGREES ( BEARING TO 
( T_DATA.R TYPE. REL CENTER] aig 
PUT ( TEXT FILE, NATURAL’ IMAGE (NAT_NUM) ) ; 
PUT “(TEP ILE ee ae, 
NAT _NUM := NATURAL ( RANGE _OF ( T_DATA.R_TYPE.REL CENTER ) ); 
PUT ( TEXT FILE, NATURAL’ IMAGE ( NAT_NUM ) ); 


end case; 


TEXT _ [O.NEWOGINE (fee Cie 


PUT ( TEXT OP IDB, CliReee sa. .DiUs an, 
NAT NUM := NATURAL (\T DATA Rel {Ps sabi es 
PUT ( TEXT FILE, NATURAL IMAGES (|) NAT SNUM = 


TEXT 1O.NEW LINE 9 ( TEXUSE Pee, 


when POLYGON => 
Pu Tee oe ie, “POLYGON” ); 
SET COL (TEXT HlGh,a4om 


Case FEC bere 
when ABSOLUTE => 
PUT ( TEXT FILE, “ABSOCEU ME e 


TEXT_IO.NEW_LINE ( TEXT FILE ); 
PUT ( TEXT FILE, “POLYGON VERTICHo mr 
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acl TOS NEW LENE ( TEXT FILE ); 


ee) am ALA TR TYPRCABS VERTICES .PTS ); 
por i ineO=.. NATSNUM Loop 
ooh Oa. Veer TA Rei PE ABS VERTICES.VERTICES (1); 


PRINT GLOBAL POSITION; 
met 1O.NEW GINS ( TEXT FILE ); 
end loop; 


when RELATIVE TO TRACK => 
uae TEXT FILE, “RELATIVE TO TRACK” ); 
NAT NUM := T DATA.R_TYPE.REFERENCE TRACK]; 
PUT ( TEXT FILE,NATURAL’ IMAGE ( NAT NUM ) ); 
TEXT IO.NEW LINE ( TEXT FILE ); 
PUT LINE (TEXT FILE, "POLYGON VERTICES” ); 


Poe TEXT FPIGE, “(BRG/RG FM REE DTRK) :); 

TEXT IO.NEW LINE ( TEXT FILE ); 

NAT_NUM := NATURAL ( T DATA.R_TYPE.REL VERTICES.PTS ); 

for 1 in 0 .. NAT NUM loop 

Poe e ol DATA RI TYPE REL VERTICES. VERTICES (1); 

NAT NUM := NATURAL ( RADIANS TO DEGREES ( BEARING TO 
Coxe ERE OS )0)) 35; 


PUT ( TEXT FILE, NATURAL’ IMAGE ( NAT_NUM ) ); 
PUt TEXT PILE, “ale 

NAT_NUM := NATURAL ( RANGE OF ( REL POS ) ); 

PUT ( TEXT FILE, NATURAL’ IMAGE ( NAT NUM ) ); 
TEXT _IO.NEW_LINE ( TEXT FILE ); 


end loop; 
end case; 
end case; 
PUT_LINE ( TEXT FILE, DASHES ); 
when PATH => 
Evie TEXT PILE, “PATH” ); 


TEXT_IO.NEW LINE ( TEXT FILE ); 
NAT NUM := T _DATA.P TYPE.PTS; 
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for Line Nate NUM loop 
GLO POS := T _DATA.P TYPE.WAYPTS ( I ) .POSITION, 
ABS TIME := T_DATA.P_TYPE.WAYPTS ( I ).TIME_ TO; 
PUT ( TEXT FILE, “PATH POINT POs Tie. sy, 
PRINT GLOBAL POSITION; 
TEXT IO.NEW LINE ( TEXT_FILE ); 

PUT ( TEXT FILE, “TIME TO PATH POD is 
PRINT OBSERVATION TIME; 
TEXT IO.NEW LINE ( TEXT FILE ); 
end loop; 


PUT LINE ( TEXT FIRE, Dasha ae, 


when SPECIAL POINT => 
SPEC PT := T DATA.S P TYPE.S P CAT; 
PUT ( TEXT FILE, “SPECIAL POINT” ); 
SET COL ( TEXT Fine we One 


Casey Orr eS yueains 


when GENERAL => 
PUT /( TEA TSE ee “GENERAL” ); 


when WAYPOINT => 
GLO_POS := T_DATA.S P TYPE.WAYPT.POSITION; 
ABS TIME := T DATA.S P_TYPE.WAYPT.TIME TO; 
PUT ( TEXT FILE, “WAYPCaia as, 
TEXT_IO.NEW_LINE ( TEXT FILE ); 
PUT ( TEXT FILE, “WAYPOINT BOSET ION = ase, 
PRINT GLOBAL POSITION; 
TEXT IO.NEW LINE (STEXT FP luEe 

PUT ( TEXT FILE, TIME TO WwAYr Ori en 
PRINT OBSERVATION TIME; 


when NAV_HAZARD => 
PUT ( TEXT_FILE, “NAV HAZARD” ); 


end case; 


TEAT_IO.NEW_LINE ( TEXT FILE ); 
PUT LINE: < TEARS UE, Ae 
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when MAN IN WATER => 
mot { TBAT FILE, “MAN IN WATER” ); 
maxlT IO.NEW LINE ( TEXT FILE ); 
P@@eGINE ( TEXT FILE, DASHES ); 


when NON _DISPLAYABLE => 
Bum e( TEXT FILE, “NON DISPLAYABLE” ); 
mex TO.NEW LINE ( TEXT FILE ); 

PUT LINE ( TEXT FILE, DASHES ); 


end case; 


-- Since we know the TRACK number of the current TRACK being read/ 
written, 


meee can NOw identify its observations in OBS FILE by searching on its 
SeelRACK number. Also, Since a TRACK and itS observations are dropped 
meee Che Same time, the observations for any particular TRACK will be 
mec Oncigquous in the file. 

Peele NOT TRACK OBS OUT.END OF FILE ( OBS FILE ) loop 


exit when FINISHED; 


MeecK OBS OUT.READ ( OBS FILE, TO ); 


if TRK_NUM = T_O.T _NUM then 
meeeematch on TRACK number is found in the OBS FILE, 


—- All observations will be together, so keep reading until a 
mismatch 


aa ts found 
while NOT FINISHED loop 


—~- Read in & write all TRACK’s observations 


GLO POS := T_0.G 0.POSITION; 

ABS_TIME := T_O0.G 0.OBSERVATION TIME; 

Pi (TEXT FthE, “OBSERVATION POSITION ;” ); 
PRINT GLOBAL POSITION; 

TEXT _IO.NEW LINE ( TEXT FILE ); 

PUT ( TEXT FILE, “TIME OF OBSERVATION :"” ); 


Nes: 


PRINT OBSERVATION TIME; 
TEXT IO.NEW LINE ( TEXT FILE ); 
PUT ( TEXT FILE, “OBSERVED COURSE. aa. 
NAT NUM := NATURAL ( RADIANS TO DEGREES ( COURSE 
( T 0.G_O.COURSE_ AND SPEED ) ) ); 
PUT ( TEXT FILE, NATURAL’ IMAGE ( NAT_NUM ) ); 
TEXT TO.NEW IbiNE ( TEXer ioe 
PUT ( TEXT FILE, “OBSERVED SPEED 97, 
NAT NUM := NATURAL ( SPEED IN KNOTS ( SPD 
( T O©.G_O.COURSE_AND SPEED ) ) ); 
PUT ( TEXT FILE, NATURAL’ IMAGE ( NAT _NUM ) ); 
TEXT IO.NEW_LINE ( TEXT FILE ); 
PUT LINE ( TEXT FILE, DOTS ); 


if NOT TRACK OBS OUT.END OF FILE (OBS FILE) then 


--— Get next TRACK observation 
TRACK _OBS OUT.READ ( OBS FILE, TO ); 


if TRK_NUM /= T_0O.T_NUM then 


—-—- Mismatch on TRACK number 
FINISHED := TRUE; 


—-- Write next TRACK info on new page 
TEXT_IO.NEW PAGE ( TEXT FILE ); 


eng “ies: 
else —- NO more TRACK observations 
FINDSHED = -—-TRUE- 


TEXT_IO.NEW_ PAGE ( TEXT FILE )j; 


end cit: 


enidielceny 


epee alae: 


end loop; 
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Beco back to the Start of OBS FILE to start reading observations for 
-—- the next TRACK 
teeeek OBS OUT.RESET ( OBS FILE ); 


=—— Reset flag 
PINT SHED := FALSE; 
ema oop; 


TRACK DATA OUT.CLOSE ( TRK_FILE ); 
TRACK OBS OUT.CLOSE ( OBS FILE ); 
Mee TO.CLOSE ( TEXT FILE ); 


end WRITE TRACK ARCHIVES TO TEXT FILE; 


SI eee ee DUDE i Re Ch OBSERVAMLON 225... cis 4. bienwiee os ss = 
procedure ADD TRACK OBSERVATION 
meres : in out TRACK; 
eee: in GLOBAL OBSERVATION ) is 
tee): LTRACK®OBS PTR; 


begin 


Seencad observation to head of list 


Mee: = new TRACK OBS; 
fee2GhLO OBS := GO; 
MeoeNEXT OBS := TRK.TRK OBS; 
tie. ERK OBS := T _O; 


end ADD TRACK OBSERVATION; 


meocedure SET TRACK IDENTITY 
meekk §: in out TRACK; 
ines > in IDENTITY TYPE ) is 


begin 


case TRK.TRACK DATA.CATEGORY is 

when SURFACE PLATFORM | SUBSURFACE PLATFORM => 
TRK.TRACK DATA.S ID := TID; 

when AIR PLATFORM => 
TRK.TRACK DATA.A_ID 


when others => 


I 


TED, 


miele: 


end case; 


end SET TRACK IDENT fie, 


procedure SET Ave Bein 

( TRK 23Our= PRAcn- 

AMP : in AMP STR2VS7h]) (Gees 
begin 

TRK.TRACK DATA.AMPL INFO := AMP; 
end SET AMPL INFO; 


Procedure Sit ge bAERORM Cbs. 
( TREK: in oura tRAGKks, 
PC : in V_AND C STR.VSTRING ) is 


begin 


case TRK.TRACK DATA.CATEGORY is 
when SURFACE PLATFORM | SUBSURFACE PLATFORM => 


TRK.TRACK DATA.S CLASS := PC; 
when AIR_PLATFORM => 
ITRK.TRACK DATA-A CLASS == °PC; 


when others => 
Tae 


end case; 


end SET PLATFORM CLASS; 


ey 


procedure SET VESSEL NAME 
Meek © in out TRACK; 
tee: in V AND C STR.VSTRING ) is 


begin 


mame iRK . TRACK DATA.CATEGORY = SURFACE PLATFORM ) or 
()TRK.TRACK DATA.CATEGORY = SUBSURFACE PLATFORM ) then 
TRK.TRACK DATA.V_NAME := VES; 

ema if; 


end SET VESSEL NAME; 


Bmocecure SET ALTITUDE 
meek 2 in out TRACK; 
fei: in DISTANCE ) is 


begin 


if TRK.TRACK DATA.CATEGORY = AIR PLATFORM then 
ere LRACK DATA.ALTITUDE := ALT; 
ema if; 


ema obl ALTITUDE; 


meececure SET CONTROL 
ieee; OUL TRACK; 
eo: in CONTROL TYPE ) is 


begin 
eh LRACK DATA.CONTROL := CON, 
eae SET CONTROL; 


Peoceaure CHANGE TRACK CATEGORY 
muek il >: an out TRACK; 
eee a TRACK CATEGORY ) is 
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TRK2 : TRACK; 

SFC : SURFACE TRACK TYPE; 

SUB : SUBSURFACE TRACK TYPE; 

ATR = ADR) RACK TYPE; 

REG : REGION TRACK TYPE; 

SPP : SPECIAL POINT TRACK TYPE; 
PTH : PATH TRACK TYPE; 

MIW : MAN IN WATER TRACK TYPE; 
NON : NON DISPLAYABLE TRACK TYPE; 


begin 


case CAT is 
when SURFACE PLATEORM => 


TRKZ. TRACK DATA aol, 
when SUBSURFACE PLATFORM => 
TRK2.TRACK DATA := SUB; 

when AIR PLATFORM => 
TRKZ. PRACK DAI == Al, 


when REGION => 
PRK. RACKS DATA = hae 
whens SPEC Air Ou 


TRK2.TRACK DATA := SPP; 
when PATH => 
ERK 2. (RAC Cr Ae eeu, 
when MAN IN WATER => 
TRK2.TRACK DATA := MIW; 
when NON DISPLAYABLE => 
TRK2.TRACK DATA := NON; 
when others => 
nib 
end case; 
TRK2Z.TRACK DATA.TRACK ID := TRKT TRACK Slt ee, 
TRK2.TRACK DATA.AMPL INFO := TRK1.TRACK DATA.AMPL INFO; 
TRK2.TRACK DATA.CONTROL := TRK1.TRACK DATA.CONTROL; 
TRK2.TRK_OBS := TRK1.TRK OBS; 
TRAIL. >= -IRKZ; 


end CHANGE TRACK CATEGORY; 


procedure BUILD WAYPOINT SPECIAL POINT 
eres © in out TRACK; 

feo: in GLOBAL POSITION; 

TYME : in ABSOLUTE TIME ) is 

WP ; PeeciAl POUNT TYPE ( WAYPOINT ); 


begin 


SeeNGE TRACK CATEGORY ( TRK, SPECIAL POINT ); 


WP.WAYPT.POSITION := POS; 
WP.WAYPT.TIME TO := TYME; 
TRK.TRACK DATA.S P TYPE := WP; 


end BUILD WAYPOINT SPECIAL POINT; 


procedure BUILD NAV HAZARD SPECIAL POINT 
eeekK =: in Out TRACK ) is 


fie. SPECTAL POINT TYPE ( NAV HAZARD ); 


begin 


CHANGE TRACK CATEGORY ( TRK, SPECIAL POINT ); 
TRK.TRACK DATA.S P TYPE := NH; 


end BUILD NAV_HAZARD SPECIAL POINT; 


procedure BUILD GENERAL SPECIAL POINT 
meek): in out TRACK ) is 


Sees oeBCIAL POINT TYPE; 


begin 


35; 


CHANGE TRACK CATEGORY ( TRK, SPECIAL_POINT ); 
TRK.TRACK DATA.S P_ TYPE := GEN; 


end BUILD GENERAL SPECIAL POINT; 


procedure BUILD PATH 
( TRK = In ouee TRACK: 
PTS : in WAYPOINT_ARRAY ) is 


N : NUM_PATH PTS := PTS’ LAST; 
PTH : PATH TYPE ( N ); 


begin 
CHANGE TRACK CATEGORY ( TRK, PATH ); 
PTH .WAYPTS .:— PIs; 


TRK.TRACK DATA.P_ TYPE := PTH; 


end BUILD PATH; 


a ee ci Ne a A eet OP 2a BUILD ABSOLUTE CIRCLE REGION........) ee 
procedure BUILD ABSOLUTE CIRCLE REGION 
(WERK Sines Lakers 
RAD = an@bpiS TANCE: 
CIR I2 7 1 GhOB Rie Os LEON as 


ABS CIRCLE : REGION TYPE; 


begin 


CHANGE TRACK CATEGORY ( TRK, REGION ); 


ABS CIRCLE.RADIUS := RAD; 
ABS _CIRCLE.ABS CENTER := CTR; 
TRK.TRACK_DATA.R_TYPE := ABS CIRCLE; 


end BUILD_ABSOLUTE CIRCLE REGION; 
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Beeccaure BUILD RELATIVE CIRCLE REGION 
@ebek : in out TRACK; 

eee: in DISTANCE; 

See: in RELATIVE POSITION; 

fae: 1n NATURAL ) is 


eee RCLE :; REGION TYPE ( CIRCLE, RELATIVE TO TRACK ); 


begin 


SHANGE TRACK CATEGORY ( TRK, REGION ); 


REL CIRCLE.RADIUS := RAD; 

REL CIRCLE.REL_CENTER := CTR; 

REL CIRCLE.REFERENCE TRACK1 := REF; 
TRK.TRACK_DATA.R_TYPE := REL CIRCLE; 


e9a@ BUILD RELATIVE CIRCLE REGION; 


Beacedure BUILD ABSOLUTE POLYGON REGION 
Meek >: in out TRACK; 
mv: in ABSOLUTE VERTEX ARRAY ) is 


Pee NUM VERTICES := AVA’ LAST; 
fee eh ; ABS VERTEX TYPE ( N ); 
meee OLY > REGION TYPE ( POLYGON, ABSOLUTE ); 


begin 


CHANGE TRACK CATEGORY ( TRK, REGION ); 
AV_TYPE.VERTICES := AVA; 

ABS POLY.ABS VERTICES 
TRK.TRACK_DATA.R_ TYPE 


AN eye Ei, 
ABS Oly, 


end BUILD ABSOLUTE POLYGON REGION; 


oo ote ar oe DUE ERE MAP OmYGONUREGION..............-.+- 
procedure BUILD RELATIVE POLYGON REGION 


( TRK : in out TRACK; 
RVA : in RELATIVE VERTEX ARRAY; 
REF : in NATURAL ) is 


N > NUM VERE CHS = BVA oe, 
RY Yee REL VERTEX TYPE (EN a: 
RET eoOLy BEGlONe  72e ( POLYGON, “RETAIT Eto ether ee 


begin 


CHANGE TRACK CATEGORY ( TRK, REGION )j; 


RV_TYPE.VERTICES := RVA; 

REL POLY.REL VERTICES := RV_TYPE; 

REL POLY.REFERENCE TRACK2 := REF; 

TRK.TRACK DATA.R_ TYPE := REL POLY; 


end BUILD RELATIVE POLYGON REGION; 


procedure TRACK HISTORY 
(RK sine, 
HISTORY PTS ARRAY : in oUt) GLOBSG Peel aa 


—— POINCS CO First TRACK Observation 
NEXT_OBSERVATION PTR : TRACK OBS PTR := TRK.TRK OBS; 


begin 


~- Read in as many observations as the user requested ( as indicated by 
-~ the size of the array 
for I in HISTORY PTS ARRAY’ RANGE oer 


—~ If there are less TRACK observations than the user requested 
if NEXT OBSERVATION PTR = null then 
FEEL 


end if; 


-- Fill array element with Cirrent observarion 
HISTORY_PTS_ ARRAY ( I ) := NEXT OBSERVATION PTR.GLO OBS; 
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—--— Point to next observation 
NEXT OBSERVATION PTR 


ema, Loop; 


end TRACK HISTORY; 


procedure CHANGE COURSE 
eur K ii sOuee LRACK; 
CSS) in ANGLE ) is 

Sem eRACK’s current speed 

TRUE SPD : SPEED TRUE SPEED ( 


TERK) 
mee bRACK’S Current position 
mek POS GLOBAL POSITION 


NEW_OBS 
NEW _CRS_SPD 


GLOBAL_OBSERVATION; 
VELOCITY; 


begin 


NEW _CRS_ SPD MAKE VELOCITY ( TRUE SPD, 


NEW _OBS.OBSERVATION TIME NOW; 
NEW OBS .POSITION Ma | Oisy, 


NEW_OBS.COURSE AND SPEED 


NEWEGRemSe), 
-- Since we’re changing TRACK’s course, 
ADD_TRACK_OBSERVATION ( TRK, NEW OBS ); 


end CHANGE COURSE; 


Sr ee ee | 


Procedure CHANGE SPEED 
io CRK in out TRACK; 


SPD ime SPEED) 26s 
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CURRENT POSITION 


NEXT OBSERVATION PTR.NEXT OBS; 


Jet eee ee A A ee ee a a ee ee et Oe Sc ee i Ot ee ee Me en 


(eK); 


CRO); 


need to add a new observation 


ee © « © & & ®@® ® e# e& ee © #& &®& @ © & &® e #& #¢£& © © @® 8 @ 


~- TRACK’S current course 
PRUE Choa ANGLE := TRUE COURSE C™ERhe 


—-- TRACK’s current position 
TRK POS : GLOBAL POSITION -— CURRENT POST ie ee 


NEW OBS : GLOBAL OBSERVATION; 
NEW CRS SPD : VELOCITY; 


begin 

NEW CRS SPD®>— MAKE) VELOCITY ((.2fD) thse k sa 
NEW _OBS.OBSERVATION TIME := NOW; 

NEW OBS -POsT TION wig 2Rheee vs, 

NEW OBS.COURSE AND SPEED := NEW_CRS_ SPD; 


-- Since we’re changing TRACK’s speed, need to add a new observation 
ADD TRACK OBSERVATION ( TRK, NEW_OBS ); 


end CHANGE SPEED; 


procedure CHANGE GLOBAL POSITION 
( TRE ©) nee Eanek 
GP; an CLOsaie POs Teh is 


—- TRACK’sS current course and )speed 
TRUE VEL ~ VELOCITY <= TRUER VY EEOGr iy (suet are, 


NEW_OBS : GLOBAL OBSERVATION; 


begin 

NEW_OBS.OBSERVATION TIME := NOW; 
NEW_OBS.COURSE_AND SPEED := TRUE VEL; 
NEW_OBS.POSITION := GP; 


—- Since we’re changing TRACK’s course and speed, need to add a new 
=—— OOSErVae len 
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ADD TRACK OBSERVATION ( TRK, NEW OBS ); 


G6na CHANGE GLOBAL POSITION; 


faecion TRACK ID NUMBER 
@eeen > TRACK ) return NATURAL is 


begin 
fermen TRK.TRACK DATA.TRACK ID; 
end TRACK ID NUMBER; 


Memict1On TRACK IDENTITY 
Meri. TRACK ) return IDENTITY TYPE is 


begin 


@eeee) TRK.TRACK DATA.CATEGORY is 

meen SURFACE PLATFORM | SUBSURFACE PLATFORM => 
meeurn TRK.TRACK DATA.S ID; 

mien AIR PLATFORM => 

return TRK.TRACK DATA.A_ID; 

waiem Others => 

mei t | ; 


end case; 


eaa TRACK IDENTITY; 


fmecei1on AMPL INFO 
Meee: TRACK ) return AMP STR.VSTRING is 


begin 


return TRK.TRACK DATA.AMPL INFO; 
end AMPL INFO; 
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function, PLATFORM CEAS. 
( TRK : TRACK ) return V_AND C STR.VSTRING is 


begin 


case TRK.TRACK DATA.CATEGORY 1s 

when SURFACE Vint onM | SUBSURFACE PLATEORM =~ 
return TRK.TRACK DATA.S CLASS; 

when AIR_PLATFORM => 

return TRK.TRACK DATA.A CLASS; 

when others => 

ane PALE 


end case; 


end PLATFORM CLASS; 


function VESSEL NAME 
( TRK : TRACK ) return V_ ANDR@yoe le) TRING ers 


begin 

if ( TRK.TRACK DATA.CATEGORY = SURFACE PLATFORM ) or 

( TRK.TRACK DATA. CATEGORY — SUBSURFACE ERATE CRM Stien 
return TURK: TRACK ODA UA. Vv ONEME,, 


end if; 


end VESSEL NAME; 


function TRK CATEGORY 
( TRK : TRACK ) return TRACK CATEGORY is 


begin 


return TRK.TRACK DATA.CATEGORY; 
end TRK_ CATEGORY; 
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mamel ion CONTROL 
@euek : TRACK ) return CONTROL TYPE is 


begin 
feelin TRK.TRACK DATA.CONTROL,; 
ene CONTROL; 


jmm@ectitOn TRUE COURSE 
( TRK : TRACK ) return ANGLE is 


begin 
meer COURSE ( MOST RECENT OBSERVATION ( TRK ) .COURSE AND SPEED ); 
epee TRUE COURSE; 


function TRUE SPEED 
( TRK : TRACK ) return SPEED is 


begin 
mereen SPD ( MOST RECENT OBSERVATION ( TRK ) .COURSE AND SPEED ); 
end TRUE SPEED; 


memee ion TRUE VELOCITY 
Meteo. LRACK ) return VELOCITY is 


begin 
return MOST RECENT OBSERVATION ( TRK ).COURSE AND SPEED; 
ema TRUE VELOCITY; 


function TARGET RELATIVE VELOCITY 
( REFERENCE TRACK, 
TARGET TRACK : TRACK ) return VELOCITY is 
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REF TRUE VELOCITY, 
TGT TRUE VEwOel Lian imLOCl IY, 


begin 
-- Get target & reference TRACK’s true velocity 


REE TRU SVELOe EY TRUE VELOCITY ( REFERENCE TRACKS): 
1Gl TRUER SEeCCris TRUE VELOCITY ( TARGET TRACK ),; 


i 


—— The difference in the 2 true velocity vectors gives relative velocity 
return VECTOR 2 PKG.”—" ( TGT_TRUE_VELOCITY, REF_TRUE VELOCITY ay 


end TARGET RELATIVE VELOCITY; 


function RELATIVE COURSE 
( REFERENCE TRACK, 
TARGET TRACK : TRACK ) return ANGLE is 


begin 
return COURSE {( TARGET REA VE VEE ee 
( REFERENCE TRACK,” TARGET RAC Kase), 


end RELATIVE COURSE; 


PUNCEL One RE EAL iY aoe Be 
( REFERENCE TRACK, 
TARGET TRACK >; TRACK ) sGlunn SPE oa 


begin 


7 
end RELATIVE SPEED; 


humce TOneAL LE TUDs 
( ‘TRK: “TRACK. ). return DISTANG@Haas 


begin 
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return SPD ( TARGET RELATIVE VELOCITY ( REFERENCE TRACK, TARGET) TR asi 


if TRK.TRACK DATA.CATEGORY = AIR_PLATFORM then 
emir TRK.TRACK DATA.ALTITUDE; 
end if; 


end ALTITUDE; 


ieteer On CURRENT POSITION 
eee : TRACK ) return GLOBAL POSITION is 


TIME DIFFERENCE : RELATIVE TIME; 
TRACK SPEED : SPEED := TRUE SPEED ( TRK ); 
TRACK COURSE : ANGLE := TRUE COURSE ( TRK ); 
DEAD RECKONING DISTANCE : DISTANCE; 

DEAD RECKONING POSITION : RELATIVE POSITION; 
LAST GLOBAL POSITION : GLOBAL_POSITION; 


begin 


—-- Get time difference between last TRACK observation and now in order 
to 


-- compute distance traveled 


TIME DIFFERENCE := NOW - MOST RECENT OBSERVATION ( TRK 
) .OBSERVATION TIME; 


—-- Compute distance traveled based on last known speed and time 
difference 


BEAD RECKONING DISTANCE := TRACK SPEED * TIME DIFFERENCE; 


Se Make @ RELATIVE POSITION vector 


DEAD RECKONING POSITION := RELATIVE POSITION ( MAKE POLAR VECTOR 2 ( 
FLOAT 


( DEAD RECKONING DISTANCE ), TRACK COURSE ) ); 


-- Get TRACK’s last known GLOBAL POSITION 
LAST GLOBAL POSITION := MOST RECENT OBSERVATION ( TRK ) .POSITION; 


-- We can now find the TRACK’s current position based on last 


ee DOBAL POSITION and the relative position from that point 
return FIND GLOBAL POSITION ( DEAD RECKONING POSITION, 
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LAST GLOBAL POSITION ); 


end CURRENT POSITION; 


function RELATIVE BEARING 
( REFERENCE_TRACK, 
TARGET TRACK : TRACK ) return ANGLE is 


REFERENCE TRUE COURSE : ANGLE := TRUE COURSE ( REFERENCE TRACK )j; 
REFERENCE POSITION : GLOBAL POSITION := CURRENT POSITION 

( REFERENCE TRACK ); 

TARGET POSITION : GLOBAL POSITION := CURRENT POSITION 

( TARGET TRACK ); 

BEARING TO TARGET : ANGLE; 

REL BEARING : ANGLE; 


begin 


-- Relative bearing to a target means we assume reference TRACK’Ss 

-- heading to be 000.0 ( no matter what course it is actually on ). 

-- The target TRACK’s relative bearing from the reference TRACK is a 
-- function of the target TRACK’s true bearing from the reference TRACK 
-- and the reference TRACK’sS true course. 


—— Get true bearing lo the carces 
BEARING TO TARGET := BEARING TO ( FIND RELATIVE POSITION 
( TARGET POSITION, REFERENCE POSITION ) ); 


-- Compute relative bearing 


REL BEARING := MATH.PI * 2.0 - REFERENCE TRUE COURSE + 
BEARING TO TARGET; 


=> COPreCctLeror angle > 36070 
if REL BEARING >= MATH.PI * 2.0 then 
REL BEARING := REL BEARING - MATH.PI * 2.0; 


end if; 


return REL BEARING; 
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end RELATIVE BEARING; 


* * © © © © © © © © @ ® @ @ @® @ =» #&# © © &©& @ © ® ®& ®@ @# © © 8 # @ 


memction TRUE BEARING 

Mee ePRRENCE TRACK, 
TARGET TRACK : TRACK ) return ANGLE is 
REFERENCE POSITION 

fear ERENCE TRACK ); 
TARGET POSITION 

( TARGET TRACK ); 


GLOBAL POSITION := CURRENT POSITION 


GLOBAL ES Er TON >= CURRENT POSITION 


begin 


meeuen BEARING TO ( FIND RELATIVE POSITION 


jee oe FOSTTION, REFERENCE POSITION ) },; 


end TRUE BEARING; 


momet20n MOST RECENT OBSERVATION 


fees : TRACK ) return GLOBAL OBSERVATION is 


begin 
meer TRK.TRK OBS.GLO OBS; 
end MOST RECENT OBSERVATION; 


7 e© «© © © © ®#® @® © © @# #& @& #& @& @ # © @ @ @# @ ®& © © @ ee es 8 @ 


function SPEC POINT CATEGORY 
(/TRK : TRACK }) return SPECIAL POINT CATEGORY is 


begin 


return TRK.TRACK DATA.S P TYPE.S P CAT; 
end SPEC POINT CATEGORY; 


ee e« es «© «© @® ¢ #8 ee e® @ #* © @® &#® e8©» 8 #8 &© © @ @ @ @ @©& 8 8 8 #@ 


De oh Gr Eee roy PEON eo ee ne a ee ek 
function MAKE GLOBAL OBSERVATION 


( OWNSHIP TRACK : TRACK; 
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TARGET TRACK : TRACK; 
TGT REL POS : RELATIVE POSITION ) return GLOBAL_OBSERVATION is 


GO : GLOBAL OBSERVATION; 


OP : GLOBAL POSITION := CURRENT POSITION ( OWNSHIP_TRACK ); 
GP_1, 

GP 2 : GLOBAL POSITION; 

TP : TRACK OBS PTR := TARGET TRACK. TRK_OBS; 


CRS ol. ANCES, 

SPD 1 : SPEED; 

RP_1 : RELATIVE POSITION; 
RT : RELATIVE TIME; 


begin 
--— Get target TRACK’s position based on reference TRACK’s position 
-- and the target’s relative position from the reference 


GP_1 := FIND GLOBAL POSITION ( TGT_REL_POS, OP ); 


GO.POSITION := GP_1; 
GO.OBSERVATION TIME := NOW; 


-- In order to compute course and speed, we need at least 1 previous 
-- observation with which to compare against its new observation 


if TP = null then -- No previous observations 
GO.COURSE_AND SPEED := MAKE VELOCITY ( 0.0, 0.0 ); 
else 

GP 2 >= TP GlOrobs oo maaenr 


-—- Compute time difference between last observation and new one 
RT := GO.OBSERVATION TIME - TP.GLO OBS.OBSERVATION TIME; 


-- Find the position difference between the 2 observations 
RP_1 := FIND RELATIVE POSITION ( GP 1, GP 2 ); 


-~- Get the new course and speed 


CRS_1 := BEARING TO ( RP_1 ); 
SPD_1 := RANGE OF ( RP_1 ) / RT; 
GO.COURSE_AND_SPEED := MAKE VELOCITY ( SPD 1, CRS 1 ); 


148 


end if; 


meturn GO; 


end MAKE GLOBAL OBSERVATION; 


ifmaet ion REGION CATEG 
Meek : TRACK ) return REGION CATEGORY is 


begin 

imterlkk CATEGORY ( TRK ) = REGION then 
fem TRK.TRACK DATA.R TYPE.REG CAT; 
end if; 


end REGION _CATEG; 


fomec ion REGION PLCMT 
meee: TRACK ) return REGION PLACEMENT is 


begin 

Mitek CATEGORY ( TRK ) = REGION then 
return TRK.TRACK DATA.R_TYPE.REG PLACEMT; 
ema if; 


end REGION PLCMT; 


mmetioOn CIRCLE RADIUS 
Meise :) TRACK ) return DISTANCE is 


begin 


if ( TRK CATEGORY ( TRK ) = REGION ) and then 
( TRK.TRACK DATA.R_TYPE.REG CAT = CIRCLE ) then 
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return TRK.TRACK DATA.R_TYPE.RADIUS, 


end if; 


end CIRCLED RADIUS, 


function ABS CIRCLE CENTER 
( TRK : TRACK ) return GLOBAL POSITION is 


begin 

if ( TRK CATEGOR () eh es] feel) ) and then 
( REGION CATEG ( TRK ) = CERCLE Banc women 

( REGION PLCMT ( TRK ) — ABSOLUTE ean 
return TRK.TRACK DATA.R_TYPE.ABS_ CENTER; 

end is; 


end ABS CIRCLE CENTER; 


function, RELIC PRCrEe CaN Tie 
( TRK :; TRACK ) return REGAT Eee O. a ee 


begin 

if ( TRK_ CATEGORY ( TRK ) = REGION ) and then 

( REGION CATEG ( TRK ) = CIRCLE ) and @tnen 

( REGION PLCMT ( TRK ) = RELATIVES IO RRA e ee eien 
return TRK.TRACK DATA.R_TYPE.REL CENTER; 

end if; 


end REL CIRCLE CENTER; 


fUnCETOn PATH OPOLNGS 
( TRK : TRACK ) return WAYPOINT ARRAY is 


begin 


if TRK_ CATEGORY ( TRK ) = PATH then 
return TRK.TRACK DATA.P TYPE.WAYPTS; 
ed if; 

end PATH POINTS; 


Gamer ion WAYPNT 
Melee: TRACK ) return WAYPOINT TYPE is 


begin 

if ( TRK_ CATEGORY ( TRK ) = SPECIAL POINT ) and then 
meee POINT CATEGORY ( TRK ) = WAYPOINT ) then 
return TRK.TRACK DATA.S P TYPE.WAYPT; 

end if; 


end WAYPNT; 


function REL REGION VERTICES 
ee > TRACK ) return RELATIVE VERTEX ARRAY is 


begin 

meee TRK CATEGORY ( TRK ) = REGION ) and then 

(er sclON CATEG ( TRK ) = POLYGON ) and then 
fmesclON PLCMT ( TRK ) = RELATIVE TO TRACK ) then 


momen IRK. TRACK DATA.R TYPE.REL VERTICES .VERTICES; 


end if; 


end REL REGION VERTICES; 


function ABS REGION VERTICES 
( TRK : TRACK ) return ABSOLUTE VERTEX ARRAY is 


begin 


Meer CATEGORY ( TRK ) = REGION ) and then 
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( REGION CATEG ( TRK ) = POLYGON ) and then 
( REGION PLCMT ( TRK ) *="ABSOLUTE Sune 
return TRK.TRACK DATA.R TYPE. ABS VERTICiey 2. 1 e., 


end if; 


end ABS REGION VERTICES; 


ies. eee ee RELATIVE CIRCLE REFERENCE TRK_NUM.............-. 
function RELATIVE CIRCLE REFERENCE _TRK_NUM 


(“TRK «= TRACK ) retuen NATURAL as 


begin 

if ( TRK CATEGORY { TRK ) = REG)O atl mee 

( REGION CATEG ( TRK ) = CIRCLE ) and then 

( REGION PLCMT ( TRK ) = RELATIVE TO TRACK ) then 


return TRK.TRACK DATA R TYPE REP ERENCE tr eka, 


shallot shieR 


end RELATIVE CIRCLE REPEREN@R tera 


ERS: 22 eeee RELATIVE CIRCLE REFERENCE TRK POS..........0+00-. 
function RELATIVE CIRCLE REFERENCE TRK POS 


( TRK : TRACK ) return GEOBAL POSTEO mars 


begin 

if ( TRK CATEGORY ( TRK ) = REGION ) and then 

( REGION CATEG ( TRK )@=8Ci; CEE ew) San amewon 

( REGION PLCMT ( TRK ) = RELATIVE Oe uRaCh ) ehen 
return TRK.TRACK_DATA.R_TYPE.REF_TRK POSITION1; 
end af; 


end RELATIVE CIRCLE REFERENCE TRK POS; 


AS ee RELATIVE REGION REFERENCE TRK_NUM...........-.-- 
function RELATIVE REGION REFERENCE TRK NUM 


( TRK : TRACK ) return NATUR Aiea. 


begin 


ey 


ie TRK CATEGORY ( TRK ) = REGION )eand then 
( REGION CATEG ( TRK ) = POLYGON ) and then 
( REGION PLCMT ( TRK ) = RELATIVE TO TRACK ) then 
return TRK.TRACK DATA.R_TYPE.REFERENCE_TRACK2; 


ema if; 
end RELATIVE REGION REFERENCE TRK_ NUM; 


oo oe RELATIVE REGION REFERENCE TRK POS...............-- 
function RELATIVE REGION REFERENCE TRK POS 


Meeek) >: FRACK ) return GLOBAL POSITION is 


begin 

foe CATEGORY ( TRK ) = REGION ) and then 

( REGION CATEG ( TRK ) = POLYGON ) and then 

( REGION PLCMT ( TRK ) = RELATIVE TO TRACK ) then 


return TRK.TRACK DATA.R_TYPE.REF_TRK POSITION2; 


ema if; 
end RELATIVE REGION REFERENCE TRK POS; 


ee UPDATE RELATIVE CIRCLE REFERENCE TRK POS............. 
procedure UPDATE RELATIVE CIRCLE REFERENCE TRK POS 


meres : in out TRACK; 
eee tn GLOBAL POSITION ) is 


begin 
TRK.TRACK DATA.R_TYPE.REF TRK POSITION1 := GP; 
end UPDATE RELATIVE CIRCLE REFERENCE TRK POS; 


oo 0 i ee UPDATE RELATIVE REGION REFERENCE TRK POS..........-.. 
procedure UPDATE RELATIVE REGION REFERENCE TRK POS 


meek : in out TRACK; 
eee: in GLOBAL POSITION ) is 


begin 
TRK.TRACK DATA.R TYPE.REF TRK POSITION2 := GP; 
end UPDATE RELATIVE REGION REFERENCE TRK POS; 


end TRACK PKG; 


[55 


APPENDIX D 


FILTER PACKAGE 


rs ws a sw er rs rs rs a a a a a a a a a a a a a a a a a a a re es ee ee = 
a a a — FF FSS BSS BS HSE OS OE ES Ee ie eee ee ae es es re ee ee SS 


-—- Authors : Richard T. Irwin 
-- Willie K. Bolick 


—— Date >: 29 7AUGUSte oer 
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-- DeScription : Defines abstract data type FILTER and associated 
—-= funcCions 6 procedures 


with TRACK PKG, DISTANCE PKG,) ABSOLUTE Ti MEE Key eC lle, 
use TRACK PRG, DISTANCE PKG, AbBSOLUTOR I IMaee re, 
Package File eeh eas 


-- An ATOMIC FILTER is based on 1 of the 3 below attributes 
Eyperr I LIBR VCATHEGOr ys 1s 

( DISTANCE FILTER, 

TRACK CATEGORY FILTER, 

PLATFORM IDENT ITY®F 2 oie ee, 


—- An ATOMIC_FILTER based on DISTANCE FILTER is further based on the 
== ale ribuces, belle 

type DISTANCE ATTRIBUTE ID is 

( RANGE FROM REFERENCE TRACK, 

ALTITUDE ); —=- from owns nmi 


Eype RELATIONSIDeis 


( EQUAL, NOT EQUAL, LESS, LESS OR EQUAL, GREATER, GREATER OR EQUAL ); 


Subtype EQUALITY RELATION ID is 
Poet tON ID range EQUAL .. NOT EQUAL; 


meeedch AND FILTER 1S a set of ATOMIC FILTERs 
meee ATOMIC FILTER 
( FILTER TYPE : FILTER CATEGORY := DISTANCE FILTER ) is private; 


Sememmerack passes an AND FILTER iff it passes every ATOMIC FILTER in 
memewe liISt. 
mee AND FILTER iS private; 


umemeerack Passes dad FILTER aff at passes at least one AND FILTER in 
Beecrc list. 
moe FILTER iS private; 


aemiaxes an ATOMIC FILTER based on DISTANCE attributes 
meecedure MAKE DISTANCE ATOMIC FILTER 

Meeet ATTRIB ID : in DISTANCE ATTRIBUTE ID; 

Pee IMIT : in DISTANCE; 

DAF _REF TRACK : in TRACK; 

Pee RELATION : in RELATION ID; 

peewtlc FILTUR : out ATOMIC FILTER ); 


@emeakes an ATOMIC FILTER based on TRACK CATEGORY attributes 
procedure MAKE TRACK CATEGORY ATOMIC FILTER 

( TCAF DESIRED TRK CAT : in TRACK CATEGORY; 

GEAR EQ REL ID ; in EQUALITY RELATION ID; 

Seen PILTUR : out ATOMIC FILTER }); 


memases dh ATOMIC FILTER based on IDENTITY TYPE attributes 
Peoceaure MAKE PLATFORM IDENTITY ATOMIC FILTER 

Meee oe DESIRED PLAT ID : in IDENTITY TYPE; 

PIAF EQ REL ID : in EQUALITY RELATION ID; 

Peete eriLTUR : out ATOMIC FILTER }); 


muemecw cho ATOMIC PIETER 1S built, at 1S added to the current 
AND_FILTER 


procedure ADD ATOMIC FILTER_TO_ AND FILTER 
me COP IagtUR in ATOMIC FILTER; 


pat 
a 
tan 


AND FILTUR@2) an out AND ETE ); 


-- Once the AND FILTER is filled with desired ATOMIC_FILTERsS, it is 
added to 


pe eaten Ja 1! Lyla ls: 

procedure ADD AND FILTER TO FILTER 
( AND FILTUR = in out AND SE TREEe 
FILTUR San our 2 PRET as, 


-- Clears the old FILTER to make way for a new one 
Procedure CEEA me iain 
( Fr in -0ut 7 GIeRe 


-- Creates a DIRECT 10 file that stores all FILTERS used duriigee 
session 


procedure CREATE FILTER FILE; 


—--— Once a new FILTER is created, it is written to the file created in 
the 


-- above procedure 
procedure WRITE FILTER 
(°F 2 ane blero 


-- Compares a TRACK to the current FILTER to determine whether or not to 
—-- pass it to the TACPLOT ( user display ) 

funceion Toi ey ie 

( FF: FILEER; 

T :; TRACK) “recurs BOOLEAT 


-- Everything in the active database is passed to TACPLOT 
function EVERYTHING return FILTER; 


-- Retrieves all FILTERS written to DIRECT 10 file and writes thenaem. 
-~ human readable text file for historical purposes 
procedure WRITE FILTER ARCHIVES TO TEXT FILE; 


pragma INLINE ( MAKE DISTANCE ATOMIC FILTER, 
MAKE TRACK CATEGORY ATOMIC FILTER, 
MAKE PLATFORM IDENTITY ATOMIC FILTER, 
ADD_ATOMIC_FILTER_TO AND FILTER, ADD AND FILTER TO FILTER, 
CLEAR_FILTER, WRITE FILTER, TEST FILTER, EVERYTHING ); 
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pmervate 


moe ATOMIC FILTER 

meeeeetehR TYPE >; FILTER CATEGORY °= DISTANCE FILTER aes 
record 

SteosPILTIER TYPE is 

when DISTANCE FILTER => 

D ATTRIB ID : DISTANCE ATTRIBUTE_ID; 
PeeomiaitT ; DISTANCE; 

Pee eRENCE TRACK : TRACK; 

D RELATION : RELATION_ID; 

when TRACK CATEGORY FILTER => 
DESIRED TRK CAT : TRACK CATEGORY; 

EQ REL ID1 : EQUALITY _RELATION_ID; 
fem PLATFORM IDENTITY FILTER => 
Sir ED PLAT ID : IDENTITY TYPE; 

EQ REL ID2 : EQUALITY RELATION ID; 
end case; 





end record; 





meme aed structure used to Jank up all ATOMIC FILTERs of an AND FILTER 
type ATOMIC FILTER NODE; 

meee ATOMIC FILTER PTR is access ATOMIC FILTER NODE; 

type ATOMIC FILTER NODE is 

feecord 

mM FILTER : ATOMIC FILTER; 

foe IOMIC FILTER : ATOMIC FILTER PTR; 

ena record; 


type AND FILTER is 
mecord 
eo ATOMIC FILTER :; ATOMIC FILTER PTR; 


end record; 


Seem eta structure used to link up all AND FILTERs of a FILTER 
type AND FILTER NODE; 

type AND FILTER PTR is access AND FILTER NODE; 

type AND FILTER NODE is 

mecOrd 

AND _FLTR : AND FILTER; 

NEXT AND FILTER : AND FILTER_PTR; 





© 


end record; 


type FILTeners 
record 
FIRST AND FILTER. AND FILGERS in, 


end record, 


-— Each ATOMIGsH iii within the FILTER 1s weiecen covers DIRECT ie fale 
—-- in the record format below 
type ATOMIC FILTER_OUT is 


Leecera 
FILTER NOM eel tii ee Number of the FILTER that the 
—— ATOMIC FILTER belongsage 
AND FILTER NUM : NATURAL; —— Number of the AND FILTER that the 


=—- ATOMIC FILTER, belongs ce 

ATOMIC FILIUR = #AlOMUC EE tiie 

TIME OUT : ABSOLUTE TIME;—— Date & time ene pth ete 2-3 7 te 
Se Ome ne er Ve 


end record; 


package FILTER INOUT is new DIRECT IO ( ATOMIGRPUIEIER oUt, 
use FILTER INOUT; 


nd FILTER PKG; 


ee ea ee i iia i ae a ssa sa aaa ei ia a SS Ss SS ee eT 
ee ee ee ae eee ee ea a a a a a a a we we ww 


—“ Authors =: sneer ds | pean 
- Willie K. Bolick 


— Date = 237Augusy 099i 


=—:.2 202.055. 55 ES OE ET a a a rr a cr ar re er cr a 
—_—e— ee er i ee ee ee ee es ee ee ee ee ee ee ee ee 


with GLOBAL POSITION PKG, RELATIVE POSITION PKG, UNCHECKED DEALLOCATION, 


u 


ABSOLUTE TIME PKG, RELATIVE TIME PKG, TEXT _I0; 


se GLOBAL POSITION PKG, RELATIVE POSITION PKG, ABSOLUTE_TIME PKG, 
RELATIVE TIME PKG; 
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Bacxage body FILTER PKG is 


procedure MAKE DISTANCE ATOMIC FILTER 

( DAF ATTRIB ID : in DISTANCE ATTRIBUTE_ID; 
DAF LIMIT : in DISTANCE; 

DAF REF TRACK : in TRACK; 

DAE RELATION : in RELATION ID; 

pemtCc FILTUR : out ATOMIC FILTER ) is 


begin 


ATOMIC FILTUR.D ATTRIB ID := DAF ATTRIB ID; 
ATOMIC FILTUR.D LIMIT := DAF LIMIT; 

ATOMIC FILTUR.REFERENCE TRACK := DAF _REF_TRACK; 
ATOMIC FILTUR.D RELATION := DAF RELATION; 


eme@ MAKE DISTANCE ATOMIC FILTER; 


procedure MAKE TRACK CATEGORY ATOMIC FILTER 
( TCAF DESIRED TRK CAT : in TRACK CATEGORY; 
eee EQ REL ID ; in EQUALITY RELATION ID; 
ATOMIC FILTUR : out ATOMIC FILTER ) is 


ieee: ATOMIC FILTER ( TRACK CATEGORY FILTER ),; 


begin 

Perr DESIRED TRK CAT := TCAF DESIRED TRK CAT; 
Memeo BO REL ID1i ;= TCAF EQ REL ID; 

ATOMIC FILTUR := TCAF; 


end MAKE TRACK CATEGORY ATOMIC FILTER; 


procedure MAKE PLATFORM IDENTITY ATOMIC FILTER 
PiAY DESIRED PLAT ID : in IDENTITY TYPE; 


NSN, 


PIAF EQ REL ID : in EQUALITY_RELATION_ID; 
ATOMIC FILTUR : out ATOMIC_FILTER ) is 


PIAF : ATOMIC FILTER ( PLATFORMUIDENT Ti TE ee 


begin 

PIAF.DESIRED PLAT ID := PIAF_DESIRED_PLAT_ID; 
PIAF.EQ REL ID2 := PIAF EQ REL ID; 

ATOMIC FTE ao, 


end MAKE PLATFORM IDENTITY ATOMIC FILTER; 


procedure ADD ATOMIC FILTER TO AND FILTER 
( ATOMIC _FILTUR : in ATOMIC FILTER; 
AND_FILTUR : in out AND FILTER ) is 


ATOMIC _FILTUR_PTR : ATOMIC_FILTER_PTR; 


begin 


ATOMIC_FILTUR_PTR := new ATOMIC FILTER_NODE; 
ATOMIC _FILTUR PTR.ATM FILTER := ATOMIC _FILTUR; 


-- If the newly-created ATOMIC FILTER is the first to be added = tegen 


-- current AND FILTER, 1S pOSttPon ts eeceuded a4. Uehara. 
AND FILTER. 


-- All subsequent ATOMIC _FILTERs are appended to the head of the 
-- AND FILTER linked list of ATOMIC FILTERS 


if AND FILTUR.FIRST_ATOMIC PIETER soul eiem 


ATOMIC FILTUR_PTR.NEXT ATOMIC Fiitee := AND FILTUR.FIRST ATOMIC Filia 
end if; 
AND _FILTUR.FIRST ATOMIC FILTER ;= ATOMIC ESET eee: 


end ADD_ATOMIG FILTER FO. ANDi Lida 


160 


meocecure ADD AND FILTER TO FILTER 
me D FILTUR : in out AND FILTER; 
meeruR : in out FILTER ) is 


fer. AND FILTER PTR; 
meee AND FILTER := AND FILTUR; 


begin 


AFP := new AND FILTER NODE; 
AFP.AND FLTR := ANF; 


meee the newly-filled AND FILTER is the first to be added to the 
eeecuUrrent FILTER, itsS position is recorded as such in the FILTER. 
—— All subsequent AND FILTERS are appended to the head of the 

eee lutEhR linked list of AND FILTERS 

[eee lGTUR.FIRST AND FILTER /= null then 

AFP .NEXT AND FILTER := FILTUR.FIRST AND FILTER; 

end if; 

GepeUR FIRST AND PILTER := AFP; 


eee olUR OP IRST ATOMIC FILTER := null; —— Reset for new AND FILTER 


end ADD AND FILTER TO FILTER; 


Peceedure CLEAR FILTER 
fe: in Out FILTER ) is 


Peececure FREE ATOMIC FILTER is 
cee NCHECKED DEALLOCATION( ATOMIC FILTER NODE, ATOMIC FILTER PTR ); 


Peeoecedure FREE AND FILTER is 
new UNCHECKED DEALLOCATION( AND FILTER NODE, AND FILTER PTR ); 


Poe) ATOMIC CORILTER PTR; 
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ANFP : AND FILTER PTR; 
NEXT ATOMIC PTR : ATOMIC_FILTER_PTR; 
NEXT AND PTR : AND FILTER PTR; 


begin 

—- Don’t bother clearing an already empty FILTER 
if For ERS bs eee null then 

return; 


else 


-— Start the clear operation at the first ANDeFIETeEr 
ANFP (>= PF UBIRST ANE er Tite 


-- Keep clearing until no more AND FILTERS 
while ANFP /= null loop 


NEAT AND PTR. >= ANGER NE Shee ee oe 


-- Get the first ATOMIC PILI 2 Sotec tee] be. ere 
ATFP := ANFP AND FLUTR. Pires tae ie ee ee 


~- Clear all the ATOMIC FURTERS ‘Of © ciheiaiees Barer eis 
while ATFP /= null loop 


NEXT_ATOMIC_PTR := ATFP.NEXT ATOMIC FILTER; 
FREE ATOMIC FILTER ( ATFP ); 
ATFP := NEXT ATOMIC PTR; 


end loop; 


=~ Cicer =the A bert hire 
FREE AND FPIGIER  ( ANEP =); 


——" Get the nexteahy ei iar 


ANFP := NEXT AND PTR; 

end loop; 

end if; 

PP IRST LANDS Pe eee 
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end CLEAR FILTER; 


meecaure CREATE FILTER FILE is 


Peee@ee FILE : FILTER INOUT.FILE TYPH; -- Archive file 


begin 


MuemER TNOUT.CREATE ( FILTER FILE, INOUT FILE, “FILTER FILE” ); 
EirnR LNOUT.CLOSE ( FILTER FILE ); 


end CREATE FILTER FILE; 


Peeeceaure WRITE FILTER 
Meme in FILTER ) is 


FILTER FILE : FILTER_INOUT.FILE TYPE; -- Archive file 

Reese NUM : POSITIVE;-- Number of FILTERS in archive 

BeeNDEX : NATURAL;-- Write index 

AND FLTR_NUM : NATURAL := 1;-- Number of AND FILTERS 

feet elce ri tR OUT :; ATOMIC FILTER _OUT;-——- Archive element structure 
ATFP : ATOMIC FILTER PTR; 

ANFP : AND FILTER PTR; 

fiers TIME + ABSOLUTE TIME := NOW;-- Time of write operation 


AF OUT : ATOMIC FILTER OUT; 


begin 


-- Open archive file & find end of file to determine where to write the 
Seeuext FILTER 

Mime eee LNOUT.OPEN ( FILTER FILE, INOUT FILE, “FILTER FILE” ); 

Meee. := NATURAL ( FILTER INOUT.SI4E (2S SORIES |S CIEE) aia Gr 


eeermeaa jast FILTER in file to get its FILTER number, then add 1 to 
assign 


—-— new FILTER number 
Memo tereR INOUT.SIZE ( FILTER FILE ) > O then 
PeriiR. INOUT®- READ ( FILTER FILE, AF OUT, POSITIVE COUNT 
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( SIZE ( FILTER FILE ) ) ); 
PotR NUM Ab OUT. FP REMEBER oN UME Hig 
else 
FLTR_NUM 


eng 1; 


1; 


—- Set write index 
PILTEREINOCUT Set Piha E ( PIMOS. Je Jee POSITIVE COUNT ( F INDEX ) dae 


-- Get first AND FILTER 
ANFP := F.FIRST AND FILTER; 


—-= ASSION Valles to Cue puee st rucelTe 
ATOMIC FLTR_OUT.FILTER_NUM := FLTR_NUM; 
ATOMIC FLTR_OUT.TIME OUT := WRITE _TIME; 


~- There will be no AND FILTERS if the FILTER 1S Set Ce adeccpr eae 
TRACKS 


if ANFP = null then 


ATOMIC FLTR OUT.AND FILTER NUM := 0; 

FILTER INOUT.WRITE ( FILTER FILE, ATOMIC FLTR_OUT, 
POSITIVE COUNT (evr wae, 

else 


~~ While there are still AND FILTERs left to write 
while ANFP /= null loop 


-- Assign AND FILTER number €O Outpur, steueeme.e 
ATOMIC FLTR_OUT.AND FILTER NUM := AND FLTR_NUM; 


—— Get first ATOMIC FILIER Of Giws Aen tice 
ATEP := ANPP AND FPETR Pinko Tt eA O ree i inimning 


-~ While there are still ATOMIC FPil—ERS (le. epee aaa. 
while ATFP /= null loop 


-~ Assign ATOMIC FILTER to output sot mnee ise 
ATOMIC FLTR_ OUT .ATOMIC FILTUR ~—= Alpe aie eee 


-- Write output structure to archive file 
FILTER_INOUT.WRITE ( FILTER FILE, ATOMIC FLTR OUT, 
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POSITIVE COUNT ( F_INDEX ) ); 


—--— Increment write index 
PDX ;= F INDEX + 1; 


Seecet next ATOMIC FILTER 
fee >> ATFP.NEXT ATOMIC FILTER; 


ema LOOp; 


aeelmcrement AND FILTER number for next AND FILTER 
AND FLTR NUM := AND FLTR NUM + 1; 


meeocee NeXt AND FILTER 
eee. ANF P.NEXT AND FILTER; 


end loop; 


eee if; 


MATER INOUT.CLOSE ( FILTER FILE ); 


end WRITE FILTER; 


meee tOn TEST FILTER 
meoees FILTER; 
T : TRACK ) return BOOLEAN is 


B : BOOLEAN := FALSE; 
Bee) ATOMIC FILTER; 

ATFP : ATOMIC _FILTER_PTR; 
ANFP : AND FILTER PTR; 


Sears pur, TRACK against one ATOMIC FIETER and returns the result 
Bimwerion TEST ATOMIC FILTER 


foe; ATOMIC FILTER ) return BOOLEAN is 


TGT POS : GLOBAL POSITION; 
REF POS : GLOBAL POSITION; 
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T CATEG : TRACK_CATEGORY := TRK_CATEGORY ( T ); 
TLD = IDENT EE Eyen, 


begin 


case ATF FILTER Te Ears 


-- ATOMIC FILTER based on Gistance=typewarer rl iecs 
when DISTANCE FILTER => 


case ATF.D ATTRIB ID is 


-- Distance-type attribute is range from a reference TRACK 
when RANGE FROM REFERENCE TRACK => 


-- Get reference & target positions 
REP SEOS CURRENT POSITION ( ATF.REFERENCE TRACK ); 
DG EEE Os CURRENT SPOs 1 TION Get, 


Case Aly (DURE iA EV Oh eS 


-- Range from reference TRACK must be equal to the input 
-- parameter value in order to pass 
when EQUAL => 
if RANGE OF ( FIND RELATIVE POSITION 
( TGT POS, REF POS ) ) = ATF.D LIMIT then 
ig e viel, Als1ONe 75 
else 
recurn FALSE, 
ened cut; 


-~ Range from reference TRACK must not be equal to the input 
—-- parameter value in order to pass 
when NOT EQUAL => 
if RANGEVOr FIND RELATIVE CPOs tie) 
( TGT_POS, REF_POS ) ) /= ATP DE iIMi teencn 
1aS\E uel | ANS IUNS, 6 
else 
Peturn PAGE, 


SNC: 
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-~- Range from reference TRACK must be less than the input 
-- parameter value in order to pass 
when LESS => 
if RANGE OF ( FIND RELATIVE POSITION 
elG hee oy hi POS) ) << AITF.D LIMIT then 
Berturn TRUE; 
else 
return FALSE; 
ema if; 


—- Range from reference TRACK must be less than or equal to the 
eee imout parameter value in order to pass 
when LESS OR EQUAL => 

PeeeeNGE OR ( FIND RELATIVE POSITION 

melctee Oo BER EOS) )))) <—-Agh@p LIMIT then 

meturn TRUE; 

else 

return FALSE; 


end if; 


-- Range from reference TRACK must be greater than the input 
——- parameter value in order to pass 
when GREATER => 

fiw NGh OF ( FIND RELATIVE, POSITION 

( TGT POS, REF POS ) ) > ATF.D LIMIT then 

return TRUE; 

ellse 

return FALSE; 

end if; 


—— Range from reference TRACK must be greater than or equal to 
-—-— the input parameter value in order to pass 
when GREATER OR_EQUAL => 

if RANGE OF ( FIND RELATIVE POSITION 

( TGT POS, REF POS ) ) >= ATF.D LIMIT then 

metic TRUE; 

else 

return FALSE; 


ena. if; 


end case; 
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-- Distance-type attribute is altitude 
when ALTITUDE => 


-- Since altitude applies only to aircrait, others will tale; ae 
Si Rieke. 

if ERK CATRGOR tae ) /= AIR_PLATFORM then 

return FALSE; 

end if; 


case ATF.D RELATION is 


-— Altitude must be equal to the input parameter value in order 
-—= hCG, pass 

when EQUAL => 

if ALTITUDE { 2.) = Ate ei Seen 

return TRUE. 

else 

return FALSE; 

end if; 


-- Altitude must not be equal to the input parameter value in 
~= OFOCEERLO bass 
when NOT EQUAL => 

if ALTITUDE) (02 je —) Ae eee 

FECULA LE RUe 

else 

return FALSE; 

SniGirieh = 


-~ Altitude must be less than the input parameter value in order 
—-+ torypass 
when LESS => 

ft A ae ODE ee ee ATE Dorit? ener 

Be Cuten bun, 

else 

return FALSE; 

Gnd sre: 


-- Altitude must be less than or equal to the input parameter 
== Value im order to pass 
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when LESS OR EQUAL => 
ee ALTIOUDE ( 2 ) <= ATE,.D LIMIT then 


menurn TRUE; 
else 

meturn FALSE; 
end if; 


—— Altitude must be greater than the input parameter value in 


BewOorder €O pass 
when GREATER => 
Peer ( T ) > ATF.D LIMIT then 


hmecturn TRUE; 


else 
meeurn FALSE; 


end if; 


-— Altitude must be greater than or equal to the input parameter 
meeovalve it order to pass 


when GREATER OR_EQUAL => 
MeeAiPiTUDE { T ) >= ATF.D LIMIT then 


merurn RUE; 
else 
return FALSE; 


end, if; 
end case; 
end case; 


eee boOMiC FIETER based on category-type attributes 
Miten TRACK CATEGORY FILTER => 


@aoce AlF.FQ REL ID1 is 


pee lReack CATEGORY must be equal to the input parameter value in 
peo rder LO pass 


when EQUAL => 
mepeecalhG >= ATP DESIRED TRK CAT then 


merturh TRUE; 
else 
return FALSE; 
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end if; 


-~- TRACK CATEGORY must not be equal Co the input parcneeer aa 
== In Order GO pass 

when NOT EQUAL => 

if T_CATEG /= ATF.DESIRED TRK CAT then 

return grRus; 

else 

return FALSE; 

end ii; 


end case; 


aL ie 


Ee 


-- ATOMIC FILTER based on Category-type attributes 
when PLATFORM EDEN Wi 22 iG hae. 


-- IDENTITY applies only to plattorms belo, 


( T CATEG = SURFACE PLATFORM ) OR 

( T_CATEG = SUBSURFACE PLATFORM ) OR 
( T CATEG = AIR PLATFORM ) then 
ID := TRACK TDENTI Tian 


CaSeeA TEA On ts hal aees 


-- IDENTITY TYPE must be equal to the anpul parameper ue 
—~ ine order to 7pacs 
when EQUAL => 

if T_ID = ATF.DESIRED PLAT ID then 

PetuUEn. TeVUe. 

else 

return FALSE; 


end if; 


—- IDENTITY TYPE must not be equal to the input parameter value 
sn Order eo pass 
when NOT EQUAL => 

if T_ID /= ATF.DESIRED PLAT ID then 

TCUCUPH. ERUE: 

else 

Levu a nok; 
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end if; 


end case; 


else -- Non-applicable TRACK types 


Bemoiumce IDENTITY doesn’t apply to other TRACKs, if the 
See tOMIC FIETER requires an equality relation to an IDENTITY 
-- it must always fail. Likewise, a non-equal parameter must 
-- always succeed. 

meee HO REL ID2 = EQUAL then 

return FALSE; 

else 

ieeeurn TRUE; 

end if; 


end if; 
end case; 
eee teST ATOMIC FILTER; 
eegin ——- TEST FILTER 
Seeell TRACKS pass an ‘EVERYTHING’ FILTER 
fier — EVERYTHING then 
meeurn TRUE; 


else 


-- Get first AND FILTER 
ANFP := F.FIRST AND FILTER; 


meme se all AND FILTERS ( if necessary ) 
while ANFP /= null loop 


-- Get first ATOMIC FILTER of this AND FILTER 
ATFP := ANFP.AND FLTR.FIRST ATOMIC FILTER; 


eto ee  TOMPCUPIEGTERS Of this ANDOPILTER ( if necessary } 
Wee ATP /= null loop 


Al 


AF := ATFP.ATM FILTER; 


-- Test the TRACK against this ATOMIC FILTER 
B := TEST ATOMIC FILTER ( AF ); 


-- A failure of one ATOMIC FILTER in an AND FILTER constteute a 
-—- failure of the entire AND PILTER, So move On TCeene nex 
-- AND FILTER 

if B = FALSE then 


exit; 
end if; 
-- Get next ATOMIC FILTER ( previous one passed ) 
ATFP := ATFP.NEXT ATOMIC FILTER; 
end loop; 


—-~ If the TRACK passed all ATOMIC FILTERS of the previous ANDO2 Teaa 
—— no need to continue. It passes the FILTER. 

if B = TRUE then 

return 8B; 


end if; 


-- TRACK did not pass the previous AND FILTER, so get the next one. 
ANEPP <=> ANFR NGA? Der tiie 


end loop; 


end if; 


returns. Ss, 


end TE sig! (Vier, 


function EVERYTHING return FIDRTER oc 


EF 2 FILER; 


begin 


by 2 


Meturn tf; 
end EVERYTHING; 


re ieee Men Crmume ro TEXT PILE........0.0.0.- 
procedure WRITE FILTER ARCHIVES TO TEXT FILE is 


eee ATOMIC FILTER; 
ieee PS ILTER CATEGORY, 


fem; TRACK CATEGORY; 

Pees: LDENTITY TYPE; 

RID : RELATION ID; 

EQ meeQUAGETY RELATION ID; 

B@EtER FILE : FILTER INOQUT.FILE TYPE;-- Archive file 
Seema tLe 2 TEXT [O.FILE TYPE;—-—- Text file of all FILTERS 
Meee NUM ; POSITIVE;-- FILTER number in file 

F INDEX : NATURAL; 

AND FLTR_NUM : NATURAL;-- AND FILTER number in FILTER 
ATOMIC FLTR_OUT : ATOMIC FILTER OUT; 

Meir TIME : ABSOLUTE TIME;-- Time FILTER archived 
FINISHED : BOOLEAN := FALSE;-- Flags when no more FILTERS 
DASHES : STRING ( 1.. 80 ) := ( others => ‘=’ ); 


—--— Writes time of archive to text file 
procedure PRINT TIME OUT is 


Y, M, D : NATURAL; 


Se. FLOAT; 

begin 

foee— YEAR ( WRITE TIME ); 

M := MONTH ( WRITE LIME Ve 

D := DAY ( WRITE TIME ); 

eeee> LIME OF DAY ({ WELT PIME ) 


Geet tTO.PUT ( FILTER HIS FILE, NATURAL’ IMAGE ( M ) ); 
Pie LOlPUT (PIETER HIS FILE, “/” ); 
ieee TOSPUT ( FILTER HIS FILE, NATURAL’ IMAGE ( D ) ); 
SieeterO. PUL ( FILTER HIS FILE, “/” ); 


Is 


TEXT I0.PUT ( FILTER HIS FILE, NATURAL IMAGE (Ysa =) 20 ee 
TEXT 1O-PUP SC PILUERON Sane eee 
TEXT IO. PUT (992LTERSHISs FILE, ewna IMeAeE 

( HOURS ( TIME OF DAY ( WRITE_TIME ) ) )); 
TEXT 10. PUT (FULT ER See eee a 
TEXT IO.PUT ( FILTER _HIS_FILE, NATURAL’ IMAGE 

( MINUTES ( TIME OF DAY ( WRITE_TIME ) ) ) ); 
TEXT TOSPUD (emilee oH low) irae ene 
TEXT IO.PUT ( FILTER_HIS_FILE, NATURAL’ IMAGE 

( NATURAL ( SECONDS ( TIME_OF DAY ( WRITE TIME ) ) ) ) 95 
end PRINT_TIME_OUT; 


begin -- WRITE FILTER ARCHIVES TO TEXT FILE 


-- Open archive & create text files 
FILTER INOUT.OPEN ( FILTER FIRE, INOUT FUER, bit eee, 
TEXT IOQ.CREATE ((FiLTER ie ee ee FILTER Ree ee, 


-- Read in first archived FILTER 
FILTER INCUT READ ( PL DIERS eee ATOMIC FLUTES s Ne 


-- Read in all archived FILTERS and convert them to human-readable 
format 


—-= fOr OuUlpDEMUOmrCtEe rue 

while NOT FINISHED loop 

FLTR_NUM := ATOMIC FLTR OUT.FILTER NUM; 

WRITE TIME :> ATOMEC PLIRVOUL IV eun, 

TEXT IO.PUT ( FILTER His FILE,| Heli bee UME Ee ee 
TEXT_I10.PUT ( FILTER HIS FILE, POCSiItive IMAGE ai) 0 er 
TEXT _10.SET COL ( FILTER Bases iLE com 

PRINT TIME OUT; 

TEXT_IO.NEW_LINE ( FILTER HIS FILE, 2 ); 


while ( FLTR_NUM = ATOMIC FLTR OUT.FILTER_ NUM ) AND ( NOT FINISHED ) 
loop 


AND_FLTR_NUM := ATOMIC FLTR_OUT.AND FILTER NUM; 


if AND _FLTR NUM = 0 then 


TEXT_IO.PUT_LINE ( FILTER HIS FILE, “ ALL TRACKS ACCEPTED” ); 
TEXT_IO.NEW LINE ( FILTER HIS FILE ); 
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meenot FILTER INOUT.END OF FILE 
Peer eR INOUT.READ ( FILTER FILE 
else 

Pea SHED := TRUE; 


ee if; 


else 
ii TO.PUT ( FILTER HIS FILE, 


eer O.PUT ( FILTER HIS FILE, POSITIVE’ IMAGE 


f 


(SERRE, )) then 
ATOMIC FLTR_OUT ); 


SONU RE obs NUMBER :" ); 


Meee tO.NEW LINE ( FILTER HIS FILE ),; 


( AND FLTR NUM ) 


eee ( AND FLETR NUM = ATOMIC FLTR OUT.AND FILTER NUM ) AND 


mevOT FINISHED ) loop 


fee — ATOMIC FLTR OUT.ATOMIC FILTUR; 


eee AY FILTER TYPE; 


TEXT IO.SET COL ( FILTER HIS FILE, 


case FC is 


when DISTANCE FILTER => 
fee — AP .D RELATION; 


os 


if AF.D ATTRIB ID = RANGE FROM REFERENCE TRACK then 


ieeer 1O.PUT ( FILTER HIS FILE, 


else 
Geer LO.PUT ( FILTER HIS FILE, 
end if; 


@ase RID is 

when EQUAL => 

meebo. PUT { FILTER HIS FILE, 
when NOT EQUAL => 

TEXT IO.PUT ( FILTER HIS FILE, 
when LESS => 

Meee elO.PUT ( FPILTER_HIS FILE, 
when LESS OR EQUAL => 

mext IO.PUT ( FILTER HIS FILE, 
when GREATER => 

Pex? TO.PUT ( FILTER HIS FILE, 


“RANGE FROM REFERENCE TRACK” 
TEXT IO.PUT ( FILTER_HIS FILE, NATURAL’ IMAGE 
( TRACK ID NUMBER ( AF.REFERENCE TRACK ) 


AA 


Ar eo,” 
= 
ge): 
Sey 
<=" ) ; 


pay 


> 
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); 


); 


when GREATER OR EQUAL => 
TEXT IO.PUT ( FILTER_HIS FILE, 


end case; 


VV >=!" ) : 


TEXT IO.PUT ( FILTER_HIS FILE, NATURAL’ IMAGE ( NATURAL 


( APLD WaMar yrs 
THXT LOPUROL INE 


when TRACK CATEGORY Ett th 
TC := APL DESTREDSTEIae-!, 

EO :—= AF EOeRE i aE; 

TEAT 1O.PUL( PiGth he Seine 


case EQ is 
when EQUAL => 

TEXT_10. PUT. ( FILTERS Goa: PEE 
when NOT EQUAL => 

TEXT I0.PUT 


end case; 


case TC is 

when TRACK PKG.UNKNOWN => 
TEXT 10.PUT (( PILTEREH IS] eine. 
when SURFACE PLATFORM => 

TEXT IO.PUT ( FILTER_HIS FILE, 
when PUBSURPACE OE BATH CRIia—- 
TEXT ITO PUT 4 PEEte Rone, 
when AIR PLATFORM => 

TEXT 10, PUT ( FPILTERSH 1S eae 
when REGION => 

TEXT TOsP UN (Pl UTE eH Saal pee 
when SPECIAL ER Gini 2 

TEAT 10.PUT (SF TETERSH DS eae 
when PATH 
TEXT IO7PUT ( FILTER) Micon thu 
when MAN IN WATER => 
TEXT_IO.PUT ( FILTER_HIS FILE, 
when NON DISPLAYABLE => 
TBAT TO PUL ( PILIERG TS ees, 
end case; 


=> 


( PIRTRR HIS PEE, 


() PIESER FS sek? 


N yards” ; 


“TRACK CATEGORY” ); 


NV eS ) : 


NN <> VV ) ; 


“UNKNOWN” ); 


“SURFACE PLATFORM” ) ; 


“SUBSURFACE PLATFORM” ) ; 


“AIR PLATFORM” ); 


“REGION” ); 


“SPECIAL POINT” ); 


“PATH” 9% 


“MAN_IN WATER” ); 


“NON DISPLAYABLE” ); 
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TEXT IO.NEW LINE 


(Set DIE RC HSE bE Se 


when PLATFORM IDENTITY FILTER => 
PID := AF.DESIRED PLAT ID; 
BO := AF.EQ REL ID2; 


ext IO.PUT { 


case EQ is 
when EQUAL => 
Meer TO.PUT ( 


EtLerR HIS FILE, 


Bote ea iSoe ihe, 


when NOT EQUAL => 


tear TO.PUT ( 


end case; 


@ease PID is 


FILTER HIS FILE, 


when TRACK PKG.UNKNOWN => 


Beet 1O.PUT ( 
when FRIENDLY 
ment 10.PUT ( 


FILTER HIS FILE, 
=> 
FILTER HIS FILE, 


when HOSTILE => 


TEXT IO.PUT ( 
when NEUTRAL 
iext TO.PUT ( 


end case; 


TEXT IO.NEW LINE 


end case; 


if NOT FILTER_INOUT.END OF FILE 
FILTER INOUT.READ 


else 


FILTER SUIS FT bE, 


=> 


Pibte ek eS sbelen 


BPENISHED := TRUE; 


end if; 


Sic LOOD; 


PE beUeORMMEDENTITY™ ); 


ae 


AN <> A ) ; 


“UNKNOWN” ) ; 


PER PEND EY 2s); 


PHO lie 7), 


“NEUTRAL” ); 


(shay) < 4p ane aa 


( FILTER FILE ) then 


(ee TERRE TLE, AEOMEiC FLTR.OUT ); 


iar TO NEW LINE ( FILTER HIS FILE ); 


end if; 
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end loop; 


TEXT IO.PUT LINE ( FILTER HIS FILE, DAShaae 


end leer, 


FILTER INOUT-CLOSE ("FILTER FILLES), 
TEXT [O2GLOSE (SE iO Uhhe lore Lie, 


end WRITE FILTER ARCHIVES TO TEXT FILE; 


bd ee Te Je ee Se Se St at a a i ono thet wer Mer YetPerP ty) O ty fT mH 8 oo Oo fm 


Chay eT RR eh, 
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APPENDIX E 


CPA PACKAGE 


em cm a a a aa a a a a a ie a eee ee ee ee ee 
a rn 00000 


Swit nors : Richard T. Irwin 
—~ Willie K. Bolick 


Bembace : 29 August 1991 
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Memeo cription : Defines data type CPA TYPE and associated function 
FIND CPA 


a a a i rr a a a a a ee ee ee a 
SS eS SSS ESS ESS SS iE. i.e i. E.On 


with VECTOR 2 PKG, ABSOLUTE TIME PKG, TRACK PKG; 
use VECTOR 2 PKG, ABSOLUTE TIME PKG, TRACK PKG; 
Peerage CPA PKG is 


mpc CPA TYPE 1s 


meCcord 

CPA BEARING AND RANGE : VECTOR 2; -- Bearing & range to target from 
peso te Boric Pdt =CrA 

Meee Or CPA : ABSOLUTE TIME; -- Time when CPA occurs 


end record; 


—— Finds Closest Point of Approach of target track to the reference 
rack 


pimction FIND CPA 
( TARGET TRK, REFERENCE TRACK : TRACK ) return CPA_TYPE; 


meagma INLINE ( FIND CPA ); 


emd CPA PKG; 


gee, 


with ANGLE PKG, SPEED PKG, DISTANCE PKG, GLOBAL POSITION PKG, 
RELATIVE TIME PKG, 


VELOCITY PKG, RELATIVE POSITION PKG, MATH; 


use ANGLE PKG, SPEED PKG, DISTANCE PKG, GLOBAL POSITION PKG, 
RELATIVE TIME PKG, 


VELOCITY PKG, RELATIVE POSITION PKG; 
package body Cee PKG: 


function FINDSers 
( TARGET TRK, REFERENCE TRACK ; TRACK ) (ein n@ = Aye a. eens 


CPA_TO TARGET : CPA TYPE; 
TGT BEARING ; ANGLE, —-— €ruewocg  oOeter aes 
TGT RANGE ; DISTANCE; —-— range to targer acs) 
TGT REL SPEED 2:95PEED, s>are Wispayeteearoct 
TGT RED COURSE : ANGLE; —— rel Sere" meta 
PERPENDICULAR 1,—— DpGEp Ofsig@.— meas 
PERPENDICULAR 2 ; ANGLE;—— perp oi tgQt Froleers 
Pl DIFF,--= ditt Det oumeoiecrs 
P2 DIFF : ANGLE;-- & the perpendiculars 
CPA BEARING : ANGLE;-- bearing to target at cpa 
CPA RANGE : DISTANCE;-- range to target at cpa 
CPA TIME : RELATIVE TIME,—— Cimewineseesmromer. 
ALPHA : ANGLE;-- angle bet bearing to 

== LOECMS Boca tIneGe tomers 
BRAVO : ANGLE;-- angle bet bearing to 

-— tot ergqeuyrcier- 
REL VELOCGi te. Vb edien ys. 
LAST_TGT POSITION, 
LAST REF POSITION, 
OPENING POS TGT, 
OPENING POS REF : GLOBAL POSITION; 
OPENING RG’: DistAnen: 
OBS TIME : ABSOLUTE TIME := NOW; 


begin 
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Bemoet Current positions of target & reference tracks 
LAST REF POSITION := CURRENT POSITION ( REFERENCE TRACK )j; 
LAST TGT POSITION := CURRENT POSITION ( TARGET TRK ); 


-- Find present bearing & range to target 


TGT BEARING := BEARING TO ( FIND RELATIVE POSITION 
MeeASTeIGT POSITION, LASTSREF POSITION) 77 
TGT RANGE := RANGE OF ( FIND RELATIVE POSITION 


(is DetGT EOS I TION @eGasT REF POSITION )); 


—- Get target’s relative course & speed 


eeeeveEbOCITY := TARGET RELATIVE VELOCITY ( REFERENCE TRACK, TARGET TRK 
> 

eee COURSE := COURSE ( REL VELOCITY ); 

Peers SPEED := SPD ( REL VELOCITY ); 


—--— Get target’s & reference’s position again to determine if they 

-- are opening one another 

OPENING POS REF := CURRENT POSITION ( REFERENCE TRACK ); 

SaNING POS TGT CURRENT POSITION ( TARGET TRK ); 

PEGNING RG := RANGE OF ( FIND RELATIVE POSITION 
MeCEENING POS TGR OPENINGSEOS REF ) ); 


-- If target & reference are opening or if the target has no relative 
speed, 


meemo CPA possible 
if ( OPENING RG > TGT RANGE ) or ( TGT REL SPEED = 0.0 ) then 


CPA_BEARING := TGT_ BEARING; 
ee RANGE := TGT RANGE; 

CPA TIME := 0.0; 

else 


-- The bearing to the target at cpa will be 90 degrees +/- the target’s 
-- relative course. The problem is finding out which one applies. To 


-- determine the correct one, computations are made on both 
perpendiculars 


—- The perpendicular closest to the target’s bearing is the cpa bearing. 


memouorreact: 90 degrees from target’s relative course to get perpl 
PERPENDICULAR_1 := TGT_REL COURSE - MATH.PI / 2.0; 
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-- If target’s relative course < 27/70, add 90 degrees to get perpd, 
-~ otherwise subtract 90 degrees 
if TGT REL COURSE < MATH.PI * 3.0 7 )270eenea 


PERPENDICULAR 2 := TGT_REL COURSE + MATH.PI / 2.0; 
else 

PERPENDICULAR 2 := PERPENDICULAR_1 - MATH.PI; 

end if; 


-- If computed perpl is negative, add 360 degrees to correct 
aie PERPENDICULAR 1 < 0.0 then 
PERPENDICULAR =< — Meine l ~*~ 20n PERPENDICULAR 1; 


end if; 


-- If computed perp2 is negative, add 360 degrees to correct 
if PERPENDICULAR 2 < 0.0 then 
PERPENDICULAR 2 7= MATH ) Pie ee Oe, PERPENDICULAR 2; 


end if; 


-- Compute absolute difference between target’s bearing & perpl 
Pl DIFF := ABS ( TGT (BEARING eee. sD ieo tetas, 


-- If difference is > 180 degrees in one direction, it is < 1303 
--~ the other direction, so choose the shortest one 

if Pl DIFP > MATHSP1 them 

Pl DIFF -:= MATH a2 Pi vise 


end if; 


—- Compute absolute difference between target’s bearing & perp2 
P2 DIFF := ABS ( TGT BEARING — PERPENDI GUD a7 a, 


-- If difference is > 180 degrees in one direction, it is < 180 in 
-- the other direction, so choose the shortest one 

if P2 DIFF > MATH.PI then 

P2 DIFF <= MATH.P1 * 220-3223 piaey 

end if; 


-- The smallest difference determines the correct perpendicular to use 
= rds) Ged Deawing 

if Pl DIFY 4 P2 pipes ehen 

CPA BEARING := PERPENDICULAR 1; 
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fee: Pl DIFF > PZ DIFF then 

CPA BEARING := PERPENDICULAR _2; 

else 

fameeecSDR ** ( ConStamt Bearing, Decreasing Range ) Crash coming! 
GPA BEARING := TGT BEARING; 


eac if; 


~~ Need to find angle between cpa bearing and target’s current bearing 
—-- so we can compute the distance from target’s current position and 
fates POSItTiOn at cpa 

ALPHA := ABS ( CPA BEARING - TGT_BEARING ); 


Sameer the angle 1s > 180 degrees in one direction, it is < 180 in 
—— the other direction, so choose the shortest one 

if ALPHA > MATH.PI then 

ALPHA := MATH.PI * 2.0 - ALPHA; 

Sem tT ; 


-~ The angle between the target’s relative course and itsS bearing at cpa 
—-- is 90 degrees. We just computed a second angle ( ALPHA ) of the 

-- triangle, so the remaining angle of the triangle is 90 degrees minus 
-- ALPHA. This angle ( BRAVO ) gives us the angle between the target’s 
Seereclative course and the true bearing to the target. 

BeevO := MATH.PI / 2.0 -— ALPHA; 


—— Compute range to target at cpa and time of cpa 


mee nA = 0.0 then —- ** CBDR ** 

CPA TIME := TGT RANGE / TGT REL SPEED; 

CPA RANGE := 0.0; 

else 

CPA RANGE := TGT RANGE * DISTANCE ( SIN ( BRAVO ) ); 


—-— Pythagorean Theorem used 

eee iMe -— SORT ( TGT RANGE * TGT RANGE - CPA RANGE * CPA RANGE ) / 
TGT REL SPEED; 

end if; 


ewiad if; 


CPA TO TARGET.CPA BEARING AND RANGE := MAKE POLAR _VECTOR_2 
( CPA RANGE, CPA BEARING ); 
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CPA_TO TARGET.TIME OF_CPA := CPA_TIME + OBS_TIME; 
return CPA TO TARGET; 
endo EP TiiDeer As, 


ena See ASEKG, 
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APPENDIX F 


VELOCITY PACKAGE 


Se ss eS eee 
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~~ Description : Defines data subtype VELOCITY and associated functions 


mm a ne ee 2 
ee a ee is SS SS eS i. ee. ee ee 


feeem VECTOR 2 PKG, SPEED PKG, ANGLE PKG; 

use VECTOR 2 PKG, SPEED PKG, ANGLE PKG; 

meckage VELOCITY PKG is 
maumeyoe VELOCITY is VECTOR 2;-— Course and speed vector 
—- Returns course & speed vector, given course & speed values 
function MAKE VELOCITY 


( SPD : SPEED; 


COURSE : ANGLE ) return VELOCITY renames 
VECTOR 2 PKG.MAKE POLAR VECTOR 2; 


—— Returns course attribute of a velocity vector 
monet ion COURSE 


Meee 2 LOCITY ) return ANGLE renames VECTOR 2 PKG.DIRECTION; 


—— Returns speed attribute of a velocity vector 
RENCE LOon SPD 
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( V : VELOCITY ) return SPEED renames eeeon 2 PKG. LENGTH; 


pragma INLINE ( MAKE VELOCITY, COURSE, SPD ); 


end VELOCITY PRG; 
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APPENDIX G 


VECTOR 2 PACKAGE 


mr wr i i re es es es ee ee ee ee ee ee ee ee 
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—— Authors : Richard T. Irwin 
-- Willie K. Bolick 
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Sempeescription ;: Defines abstract data type VECTOR 2 and associated 
minctions 


a a a a a ees es es es ee ee ee Le 
ee ee a Se SS SS SS SS Se Se ee ee ee ee eee ee Se ES Ee EEE 


with ANGLE PKG, MATH; 
mee ANGLE PKG; 
maekage VECTOR 2 PKG is 

mye] VECTOR 2 is private; 

function SORT ( F : FLOAT ) return FLOAT renames MATH.SQRT; 
—— Returns a vector, given a length and an angle in radians 
function MAKE POLAR VECTOR 2 

( LENGTH : FLOAT; 

PeeeclliON ; ANGLE ) return VECTOR 2; 

fee eebrns the length attribute of a given VECTOR. Z 


meet Lon LENGTH 
( V ; VECTOR 2 ) return FLOAT; 
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-- Returns the angle attribute of a given VECTOR_2z 
function ViPeerrey 
( V : VEG@TOR 2 ) sebienS ANGLE. 


-- Returns a vector, given its end point in terms of X & Y Coordinage. 
function MAKE CARTESIAN _VECTOR_2 
( X,Y ¢ FLOAT ) xréturneveelORe2, 


-- Returns the X-coordinate of a vector 
function X_COORDINATE 
( Vo: VECTOR. 24) ] rer tien rea, 


--— Returns the Y-coordinate of a vector 
function Y COORDINATE 
( Vo: VECTOR 2 ). réGvipa yl bez 


—-— Returns the resuitant sum of 2 vectors 
funmctaon “+ 
(V1, V2 > VECTORUZ ) TelUri VECTCRe, 


—-- Returns the resultant difference of 2 vectors 
function “=” 
( Vi, V2 2 VECTOR Z|) serene sVEC lon, 


—— Returns the resultant dot product of 2 vecrom 
function DOT IEROPUEE 
( V1, V2 : VECTOR] 2) (sect urna sez 


-- Returns the resultant product of a Vececrvand vamscalemeacre 
TUNCE TON. ae 

(Voor VEC TORE, 

SCALE FACTOR :; FLOAT ) return VECTOR 2; 


—-- Returns a vector rotated aboul vasciveneancgie 
£UnecEaOn ROTATE 

(OV = VECTOR G2. 

A? ANGLE ) return VECIG@Rm, 


== Returns a normalized vector 


function NORMALIZE 
( Vo. VBCTOR¢2 )  retumn Veerermy, 
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pragma INLINE 
meee POLAR VECTOR 2, LENGTH, DIRECTION, MAKE CARTESIAN VECTOR 2, 
Papee or DINATE, Y COORDINATE, “+”, “-”, DOT PRODUCT, ROTATE, NORMALIZE ); 


private 
ieee VECTOR 2 is 
record 
pee 6 SlCUE LOAT; 
end record; 


gee: CONStant VECTOR 2 := ( 0.0, 0.0 ); 


end VECTOR 2 PKG; 


mn a a a ee ee ee. ee 
— ee ee ee ee ee ee ee ee ee ee a nee ae ee oe ee ee ee Se ee ee ae ee ee oe eo eee eee eee eee oo eee 


Pemeechnors : Richard T. Irwin 
Samet llie K. Bolick 


mSameace ;: 29 August 1991 


rs re rr re rr wr rr rr re rs me re ee ce ee ee ee ee ee ee ee oe ee ee 
ee a ee SS SS SS SS ES SS SS SS Se ee ee ee 


function MAKE POLAR VECTOR 2 
feaeNGTH : FLOAT; 
Br RecTION ; ANGLE ) return VECTOR 2 is 


ae) VECTOR 2; 


begin 
wees — LENGTH * SIN ( DIRECTION ); 
fee: — LENGTH ~*~ COS ( DIRECTION ); 


BeEurn V; 
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end MAKE POLAR VECTOR_2; 


function LENGTH 
( V.: VECTOR 2 ) return FLOAT is 


begin 


return. SORT 1 Vex esk + VY 2) ae 
end LENGTH; 


function DIRECTION 
( V : VECTOR 2 ) SeturneANGrE eis 


rs EE ei Giil 
A : ANGLE; 


begin 


ms 
It 


Ven 
Yoo ea 


a 


0.0 then 


if Y S= O-0eehen 
return DEGREES TO RADIANS UUme, 


else 

return DEGREES TO RADEANS = (ect Ome, 

end if; 

elsif Y / X < 0.0 then -- Hither X or Y iS negative 

1f Y= 020 -Ehen == Y is nécarige 

return DEGREES TO RADIANS ( 90.0 ) > AReTA ey we 
else -- X is negative 

return DEGREES TO RADIANS ( 270.0 }) = eAR@i7) le ae, 
end if; 
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else 


if X < 0.0 then -- X and Y are both negative 

meer DEGREES TO RADIANS ( 270.0 ) —- ARCTAN ( Y / X ); 
Smee ——- X and Y are both positive ( Y could be 0.0 ) 
return DEGREES TO RADIANS ( 90.0 ) - ARCTAN ( Y / X ); 
ema if; 

ema if; 


end DIRECTION; 


ee MAME mO@nRUnGrAN VECTOR: 2 o:ci.% «2.42 eines sa bt. 
function MAKE CARTESIAN VECTOR 2 
meee. : FLOAT ) return VECTOR 2 is 


Meee VECTOR 2; 


begin 
woes s= XA; 
veer := Y; 


return V; 


end MAKE CARTESIAN VECTOR 2; 


function X COORDINATE 
Meee SECTOR Z ) return FLOAT is 


begin 


MeGuUrn V.X; 
end X COORDINATE; 


function Y COORDINATE 
Meee vECTOR 2 ) return FLOAT is 


begin 


al 


YTetarn, Vx, 
end Y COORDINATE; 


fae te 
Cv 


on 
V2 


WM 
VECTOR 2 ) 


Veo SCEOR Ic. 


begin 
V.X 3= 


Vie 


return 


end “+ 


VicxX + V2 
Vile Vet cee 


V; 


ue. 
f 


retnrm VECTORS Zes 


s- e& e& ee © @ &@© @ &@& &®& 8&8 8 8 8@& & 8 &® @ @ @ @® e&© # e& e&# © @ &8® &@ @ @ © &# &©& @© @ 
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foumees 
ay, 


on 
V2 


Woe 


VECTOR 2 ) 


Ve VECTORGZ: 


begin 


Vee x 
Es Ce pe 


Pete ii 


eng “= 


Ml Nee 
VIS Yew 2 a 


“ue, 
f 


FUNCT TON SVer PRODUCT 


( Vi, 


begin 


WZ 


VECTOR 2 ) 


EeEUrh. VECTOR Caer 


reoburheweonT =n 


Feturn Vilexk * V2. 49 ae ee 
end DOTTPRObUCGE, 


I 


mimecetion “*” 
mee: VECTOR 2; 
peeee FACTOR : FLOAT ) return VECTOR 2 is 


ee. VECTOR 2; 


begin 

Semeeenogta ( result }) = length {( v ) * scale factor 
Bemorrection ( result ) = direction ( v ) 

V2.X := V.X * SCALE FACTOR; 

ey *= V.Y * SCALE FACTOR; 


meeurn V2; 


end et? - 


mmection ROTATE 
me: «€6VECTOR 2; 
MeeeoONGLE ) return VECTOR 2 is 


D : ANGLE; 
2: VECTOR 2; 


begin 


Semmirection ( result ) = direction (v)+t+ta 


eeebength ( result ) = length ( v ) 


fee DIRECTION ( V ) + A; 
Pewee = LENGTH ( V ) * SIN ( D ); 
ore LENGTH ( V ) * COS ( D ); 


menturn V2; 


end ROTATE; 


Is 


function NORMALIZE 
( V : VECTOR 2 )= return, VECTOR wZ as 


D : ANGLE; 
V2. VECTC ae, 


begin 


—= Direction ( result ) = direction maa 
-- Length ( result ) = 1.0 


Oo 
I 


DIRECTION Wa); 
V2.4 7 = (COS Gce 
Wize. ee = LN (nD ay 


return V2; 


end NORMALIZE; 


« es e@# @# @ e@# @ @ e@ e@# 8 e@# & & & &#®& @ 8&8 &@& &@& & &@& @ @®& & & @ @ @ @ @ @ @ @ @ @ © © &® © © @ @ © & © © @ @ @ @ @ @ @ @ @ @ @ @ #@ @ @ @ @ @ @ @© @ © @ @ @ 


end VECTOR 2eEKG, 
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APPENDIX H 


VECTOR 3 PACKAGE 


ee EE EE Ee 
en ee ne Oe 


S—riEnors : Richard T. Irwin 
—— Willie K. Bolick 


Seebace ;: 29 August 1991 


Memmescription : Defines abstract data type VECTOR 3 and associated 
mct1lons 


with ANGLE PKG, MATH; 
Moe ANGLE PKG; 
Peeckage VECTOR 3 PKG is 
Meee VECTOR 3 iS private; 
memet ion SORT ( F : FLOAT ) return FLOAT renames MATH.SQRT; 
SeemetUurns a vector, given a length, an angle in radians, and an azimuth 
eal radians 
function MAKE POLAR VECTOR 3 
MeESNGIH : FLOAT; 
THETA : ANGLE; 


Bae. AZIMUTH ) return VECTOR 3; 


Gees eeuttic the length attribute of a given VECTOR 2 
Pet ion LENGTH 
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(V ; VECTOR 3 ) return Fic ee 


Lunct 2one iis 
( V : VECTOR 3 )> réeurneaAniceey, 


Funct lenge 
(SV VECTOR oF) return AZ Moe, 


-—- Returns a vector, given its end point in terms of X, Y, & 2Z 
coordinates 


function MAKE CARTESIAN VECTOR_3 
(CX, Y, 2 2 BEROAT™)| return veciopme, 


=~ Returns the A-e00rdinace (Oto as Jeceas 
funct tom x COORDINA EE 
( V2 VECTOR 3 ) reburmor LOA, 


—-— Returns the Y-coordinate of a vector 
LUnCt Vem. ¥ FeOCORD INA 
( Vos. VECTOR 3) Tetppn es RieOa tT, 


-- Returns the Z-coordinate of a vector 
function Z COORDINATE 
(Vr VECTORS 7 Petunia Loy, 


—-- Returns the resultant sum of 2 vectors 
FUNCEZOn  o.7 
( Vl, V2 : VECTOR 3°)" return, VECICR I, 


—-— Returns the resultant Gifterenge cin —-crcr: 


We bbaVoie Hog es” 
( V1, V2 : VECTOR 3) returns YECTORm: 


-- Returns the resultant dot product of 2 vectors 
fUNCl LOM POT sPhOLvvece 


( Vl, V2 ; VECTOR 3) cétueneh re, 


function CROSS PRODUCT 
( Vi, V2 : VECTOR 3 ) Zeturieyeer@nee, 


—~ Length ( result ) = length (vj) Sse ge ere 


196 


fee lon SCALE 
ic V vECTOR 3; 
SCALE FACTOR 


Owl eae Ui vic LORDS, 


—— Returns a normalized vector 


=— length ( result ) = 1.0 
function NORMALIZE 
mee: VECTOR 3 ) return VECTOR 3; 


pragma INLINE ( MAKE POLAR VECTOR_3, 
MAKE CARTESIAN VECTOR 3, 
Z COORDINATE, “+”, “~", DOT PRODUCT, 
NORMALIZE ); 


private 


mee VECTOR 3 is 
record 
rey, 2 ELOAT; 


end record; 


ZERO Sonsctant VECTOR 37):— (0207-070, 0. 


end VECTOR 3 PKG; 


a a aie asa Sa Sas See eee 
er ee 


Richard TT: 
heire K. Bolick 


mee LhOrs 


—— Date Ze,AUgGUSE. 1991 


meme ee cre ce a a a a i 
cme ee a IL a i a a Sa Sa Se ae ee 


function MAKE POLAR VECTOR_3 
MeeENGTH : FLOAT; 
THETA : ANGLE; 


Loe 


LENGTH, THETA, PHI, 
X COORDINATE, Y COORDINATE, 
CROSS PRODUCT, 


SCALE, 


om ii Se 
me ae ae 


i i i 


PHI : AZIMUTH) return VECTOR2> 2s 


V 3 VECTORS, 


R : FLOAT; 

begin 

R ?= LENGTH + COs S(3bHiw. 
Ver t= 5R COSA rEsE Aa, 
V.Y += Ro* SIN “(Getee) 


V.2 LENGTH * 3saN ("2 riaee, 


gee abi gy Wh 


end MAKE POLAR _VECTOR_3; 


re rere eee er erm es a LENGTH... 22 cc 0 ew eos oe © 46 
function LENGTH 

(V -) VECTORS J eeceurn LiLo ies 

R : FLOAT; 

begin 

R *= SORT (CW ox ee eV ee ee 

return SORT Ro sek ce ee, 

end LENGTH; 

a a er ere are Re 8 ks THETA. 22 04 04 4 se ee ee 
FUNCE TON. THEGA 

(Vo: VECTOR 3) setur nea abraas 

begin 

returner ARCTAN —(e yey Von 

end THETA; 
er ee ee ee ee re ere ee Me a eG PHI 2 oc sd wwe ee oe Se se 


function PHI 


( V : VECTOR 3 ) return AZIMUTH is 
R : FLOAT; 
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begin 


fae SORT ( V.X * V.X + V.Y * V.Y ?); 
ferirn AZIMUTH ( ARCTAN ( V.Z / RR) ); 
end PHI; 


MS . b ee ee ee ee ew ee PGE ee rier eVECTOR 3.5... 65s sce eww ee we ke 
function MAKE CARTESIAN VECTOR 3 
meee y, 4: ELOAT ) return VECTOR 3 is 


V : VECTOR 3; 


begin 

Vex := X; 
yer := Y; 
4 := 4; 


meeurn V; 


end MAKE CARTESIAN VECTOR 3; 


mametaon X COORDINATE 
meee VECTOR 3 ) return FLOAT 1s 


begin 
mecurn V.x; 
end X COORDINATE; 


function Y COORDINATE 
meee PelOR >) return FLOAT is 


begin 


meLurn V.Y; 
end Y COORDINATE; 
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function Z COORDINATE 
( Vi = VEGTORSS (ret lune LOnT SEs 


begin 
return V.aZ; 
end Z COORDINATE; 


Me blpi@leal ogy ap 
( Vl, V2 :; VECTOR 3) return VECTORR wes 


V <6 VECTOR, 

begin 

Ver t= "Vite V2ex; 
VY 2= "Viney V2 oy: 


Vea tS) Mae 2 ee 


TeLuUrn V; 


end Ae 


EUeCT One =i 
(V1, V2 : VECTOR 3 ) Netunm VECTOR ese 


Vo VE CrOn go: 

begin 

Wakes Volek Ny 
Vile — SVs ye 
WE me A a 


return V; 


ena Nas 
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mumet ion DOT PRODUCT 
meee, V2 ; VECTOR 3 ) return FLOAT as 


begin 


meen Vl.X * V2.X + Vl.Y * V2.Y + V1.Z * V2.2; 
end DOT PRODUCT; 


mumection CROSS PRODUCT 
me, V2 ; VECTOR 3 ) return VECTOR 3 18 


Pee VECTOR 3; 


begin 

eee vey * V2.2 — V1.2 * V2Z.Y; 
freee = VIZ * V2.X — VL.X * V2.2; 
fee VIX V2.Y = VL.Y * V2.X%; 


return V, 


end CROSS PRODUCT; 


mumection SCALE 

i: VECTOR 3; 

meee ACTOR ; FLOAT } return VECTOR 3 is 

wee: VECTOR 3; 

begin 

Reece a (results) — fengzrhn ( v ) * scale factor 
Pees t= V.X * SCALE FACTOR; 

Peres = V.Y * SCALE FACTOR; 

Pees a> V.Z * SCALE FACTOR; 


metirn V3; 


end SCALE; 
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function NORMALIZE 
(VV 2 VECGTORTS ) =uecturm VECTOR am. 


R ? FLOAT; 

PHI : AZIMUTH; 
THETA : ANGLE; 
VS 2) VECTOR 


begin 
== length { resuity) — 0 
THETA “?= ARCTAN "OV ay ee 


Rot= SORT ( Vik * yx eee ee, 
PHI := AZIMUTH ( ARCTAN ( V.Z / R) ); 


V3.Z := SIN ( ANGLE ( PHI ) ); 
R = COS MC ANG Loar 3o5)7 
V3.¥ (S3Re oles LAD), 


V3.x%0:= R * COS ( THETA); 


return V3; 


end NORMALIZE; 


a 


end VECTOR _3 PKG; 
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APPENDIX I 


SPEED PACKAGE 


mm a a a a a a a a a a Ce Ce ee ee Le Ee ee ee Le 


ee 
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Zemeienhors : Richard T. Irwin 
—-— Willie K. Bolick 


Beemate : 29 August 1991 
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=s- Description : Defines data type SPEED and associated functions 


mm a a a a a a a a a ee ee ee ee ee ee oe oe ee oe ee ee oe Le ee ee oe ee ee ee ee 
mr ES ES SS SS SS SS SS SS ae ae ee Oe Oe Oe Ol Oe lS ee SE 


wach MATH; 
use MATH; 
Mackage SPEED PKG is 
Pvecype SPEED iS FLOAT; -- Units : yards per second 
meeeceuUrns yards per second, given knots ( nautical miles per hour ) 
function MAKE SPEED 
Meenors <: FLOAT ) return SPEED; 
Seeneturns knots, given yards per second 
PUnet LON SPEED IN KNOTS 


moe. SPERD ) return FLOAT; 


pragma INLINE 
meoAKe, SPEED, SPEED IN KNOTS ); 


Sac oP REED PKG; 
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——— se ee ree ee ce re rc a a a a a a ae iw ee ee ee oe ee 


— SSS ee ee SS SS SS ES ee ee ee eee 


a 


——~ Authors : Richard T. Irwin 
—— Wrllver kh. bollrek 


= Pate > 2Zoesucuse 19el 


re re mms cms a a a a cr rr art ar wr wr a ee ee ae ee ae oe ee 
aS eS SS —_ ore oe ore ee roe or oe oe ee a ae aS a Sa ee ae ae i ee ae a iw ee ee 


package body SPEED PKG is 


YDS_IN KNOT : constant FLOAT := 6080.2 / 3.0; 
SECONDS IN HOUR = ecristant rie): —s3e00 0, 


function MAKE oheED 

( KNOTS : FLOAT } return SPEED 1s 

begin 

return { KNOTS * YDS IN KNOT ) 7 SECONDS SiN oer, 
end MAKE SPEED; 


FuNncl1on SPEED ING RNeas 

(“S-: SPEED ) reriyne a rOAi ea. 

begin 

return ( S * SECONDS IN HOUR jy) Dosa en ei, 
end SPEED IN KNOTS; 


._ fs 8 8 8 8 8 8 ee ee ee ee ee ee ee eee ee ee ee © Fe © ee we ee es we we © es we we © © © ese © © © © we © we © © we © © © © © © © we © © Bw © Sf 


end SPEED PKG; 
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APPENDIX J 


ANGLE PACKAGE 


ee ce cer ms rm my my me me mt ee ee we ws ce cr ws ss ws cm ws ms cs ms cm es crm rm cr ee ee re ee ew ccm mm ee ee ee ey ee ee es ee ee ee oe ee ee 
————— a ee re ee ec ee ey ee ee oe ee ee en er eee ee eee ee ee ee ee ee ee ee ee ee oe eee eee 


Sweet nors : Richard T. Irwin 
=— Willie K. Bolick 


eemmacte :; 29 August 1991 
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-- Description : Defines data subtypes ANGLE, AZIMUTH, and associated 


-- functions 


meee ee ae ee ae ae ea ae a 
a mm ee ee i 


with MATH; 
use MATH; 
package ANGLE PKG is 


Subtype ANGLE is 


Peerage —42,.0 ~*~ Fi... 2.0 * Pl; -- Units of radians 
subtype AZIMUTH is 
Sitters “liye Fl “eet l; —— Units of radians 


function DEGREES TO RADIANS ( X : FLOAT ) return ANGLE; 


—-— Converts compass degree value to its equivalent radian value 


mame t lon kADIANS TO DEGREES ( A : ANGLE ) return FLOAT; 


--— Converts radian value to its equivalent compass degree value 


function SIN ( A : ANGLE ) return FLOAT renames MATH.SIN; 
function COS ( A : ANGLE ) return FLOAT renames MATH.COS; 


AGS, 


function ARCTAN ( A : ANGLE ) return FLOAT renames MATH.ARCTAN; 
function ARCSIN ( A : ANGLE ) return FLOAT renames MATH.ARCSIN; 


pragma INLINE ( DEGREES TO RADIANS, RADIANS TO DEGREES, SIN, COS, 
ARCTAN, 


ARCSIN ); 


end ANGLE PKG; 


em mm i a a a a ee we we a ee 
=—— a oi i a rr a ee ee es ee ee ae a 


—— Authors : Richard T. Irwin 
-- Willie K. Bolick 


-—" Date 1 Zo august ie 


mm mr i a a a me rs ws ws es es ee we we we ae a ee a ee ee ee ee 
a me et a ee ee ee ee ee ee ee ee ee eee 


package body ANGLE PKG is 


CONVERSION FACTOR * Constanba: LOAT 7 Tevull, 2. 


eee Mee ere a ee DEGREES TO RADIANS... 2. vse. 2 3 3 ee 
function DEGREES TO RADIANS ( X : FLOAT ) return ANGLE is 

begin 

returm ANGLE ( X / (CONVERSTON FACTOR |); 

end DEGREES TO RADIANS; 


Mr Cen er Pr ek ies 8 RS. RADIANS TO DEGREES ....... .-0aee . 00s 
function RADIANS _TO_ DEGREES ( A : ANGLE ) return FLOAT is 

F :; FLOAT; 

begin 

Fo i= FLOAT ( A’) * CONVERS LONSE Gren, 

ier 66.00 Vehen 

return 360.0 + F; 

Gr Climatic 

return F; 


end 
RADIANS TO DEGREES; 


end ANGLE PKG; 


>-_ es © & & © © & & @ &©& © © © @ @ &@& &@ © © & © © &@ «& © © © © © © © © © ee ese © © © Me he ws ws wee eees ee 
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APPENDIX K 


ABSOLUTE TIME PACKAGE 


em cc cr cr ms ws ws ws ee ee ee ee ee 
00 


Pwemtinors : Richard T. Irwin 
—— Willie K. Bolick 


SeeDate :; 29 August 1991 
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memoeccription : Defines abstract data type ABSOLUTE TIME and associated 


—-— functions 


sem ie i i i i i re ri rs re ee ee ee ee ee eee eee ee ee ee ee 
rr cr cr cr i rr cr a ee ee a a ee ee a a a ee SS eS Se SS Ee Se ee ee ee ere Oe ee ee 


with RELATIVE TIME PKG; 

use RELATIVE TIME PKG; 

package ABSOLUTE TIME PKG is 
type ABSOLUTE TIME is private; 


momceton NOW return ABSOLUTE TIME; 
Seo onverts CALENDAR.CLOCK time to ABSOLUTE TIME 


mince TOn MAKE ABSOLUTE TIME 

( YEAR, MONTH, DAY : NATURAL; 

eer SDAY | RELATIVE TIME ) return ABSOLUTE TIME; 

eee ccepes Numerical values of year, month, day, and the time of day 
ecco secnted In Seconds ). Converts inputted values to ABSOLUTE_TIME 


maimect son YEAR 
( T : ABSOLUTE TIME ) return NATURAL; 
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-- Returns the value of the year contained in the ABSOLUTE TIME input 


function MONTH 
( T : ABSOLUTE TIME) recur NAtURAE, 
-- Returns the value of the month contained in the ABSOLUTE TIME input 


LUN CE Vvone WA 
(Tt: ABSOLUIE TIME) nelurn NATUR, 
-- Returns the value of the day contained in the ABSOLUTE Tae ena 


function TIMBVOn Sony 

( T. 2 ABSOLUTER IME } retira REUAT Vi EME, 

-- Returns the value of the time of day ( in seconds ) contained ime 
=~ ABSOLUTE TINE Va npee 


funcraonm.. “+” 
( ABT : ABSOLUTEREIME, 
Ki: RE LAT! Via vis ) Set iusn ABSOLUTE TIME; 


hiuncrioen. “+"% 
("RIS RELATIVE SiMe 
ABI ; ABSOLUTE TIME )xeturn ABSOLUTE ST iin, 


Eunceron =] 
( Tl, T2 : ABSOLUTE_TIME ) return RELATIVE TIME; 


fuNnCE1 One 7a 
(aide eal a ABSOLUTE TIME ) return BOOLEAN; 


pragma INLINE 
( MAKE ABSOLUTE TIME, YEAR, MONTH, DAY, IME, OF DAvga 


private 


Cype ABSCLUIE, TIME tre 
LO G@TG 

ABS _ YEAR : NATURAL; 
ABS MONTH : NATURAL; 
ABS DAY : NATURAL; 
ABS HOUR : NATURAL; 
ABS MINUTE : NATURAL; 
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ABS SECONDS : FLOAT; 


end record; 


PeGiNNING ; constant ABSOLUTE TIME := NOW; 


end ABSOLUTE TIME PKG; 


em py ey a a ee ee ee ee ee 
——_——— oe ee ee a ee ee ee ee ee ee ee ee ee ee ee ewe ee ee ee ee ee ee ae ae Se ES ES ee OL ee eee ee Oe EE 


Pemeeenors : Richard T. Irwin 
—-~ Willie K. Bolick 


Sembate ; 29 August 1991 


emcee: cence emcee: cee ge ree rp re me mr me mr mr me rr me rm mt wr rr re nm nn i mr rm ne nr re re te rm re es te ce te re ee ee ee a we we a = oe ee ee ee 
———— ee i a a 


with CALENDAR; 


use CALENDAR; 


package body ABSOLUTE TIME PKG is 


mumet On NOW return ABSOLUTE TIME is 
ABT : ABSOLUTE_TIME; 

SEC : DAY DURATION; 

oT: TIME; 


begin 


CT := CLOCK; -—- Get system time clock value now 


Poe: — SECONDS ( CT ); -—-— Convert time to seconds 
mete hbs YEAR -= NATURAL ( YEAR ( CT ) ); 

Ae. ABS MONTH [— NALURAL.s MONTH (Cr ) ); 
ABT.ABS DAY := NATURAL ( DAY ( CT ) ); 
fee ABS POUR := NATURAL (eon ese) / 3600; 


Pees MENTE = NATURAL ( FLOAT ( SEC ) - 


Zeo 


FLOAT ( ABT ZABSUHOUR ~ 36000) cer 
ABT.ABS SECONDS := FLOAT ( SEC ) - FLOAT ((( ABT ABS HOUR 2000 
( ABT.ABS MINUTE * 60 ) ); 


return ABT; 


end NOW; 


function MAKE ABSOLUTE TIME 
(YEAR, MON@H Dew = NATURAL, 
TIME OF DAY : RELATIVE TIME ) return ABSOLUTE Stiles 


ABT : ABSOLUTE_TIME; 


begin 

ABT ABS YEAR :— YEAR, 

ABT ABS SMONatH ©: = MONEE, 

yevew@b erates | Dian 2 WN 

ABT.ABS HOUR := NATURAL ( TIME OF DAY ) / 3600; 
ABT. ABS MINUTE i= (NATURAL ( Paitin One ee ee 
ABT ABS HOUR * 3600" me sco, 

ABT.ABS SECONDS := FLOAT ( TIME OF DAY ) - 
FPLOAT ( (ABP ABS ROURS 3600) a 


( ABT.ABS MINUTE * 60 ) ); 


return ABE; 


end MAKE ABSOLUTE TIME; 


CUNCT LON Svea 
( T : ABSOLUTE TIME ) return NATURAL is 


begin 


recur TABS aan, 
ena (ean, 


vate 


fection MONTH 
ale: ABSOLUTE TIME ) return NATURAL is 


begin 


return T.ABS MONTH; 
end MONTH; 


mamection DAY 
(i : ABSOLUTE TIME ) return NATURAL is 


begin 


ferurn T.ABS DAY; 
end DAY; 


Poet iOn TIME OF DAY 
( T : ABSOLUTE TIME ) return RELATIVE TIME is 


Pee.) RELATIVE TIME; 


begin 


RT := RELATIVE TIME ( T.ABS HOUR * 3600 + T.ABS MINUTE * 60 ) + 
RELATIVE TIME ( T.ABS SECONDS ); 


mebewrl Ri; 


end TIME OF DAY; 


meanction “+” 
( ABT : ABSOLUTE TIME; 
ml. RE wATT VEEIME ) return ABSOLUTE TIME is 


RABT : ABSOLUTE TIME; 
RTM : RELATIVE TIME; 


Zell 


EMS set PME, 


Y : YEAR NUMBER; 

M : MONTH NUMBER; 

D : DAY NUMBER; 

S : DAY DURATION; 

begin 

—-— Use CALENDAR functions to get year, month, day of ABT 
Y := YEAR NUMBER ( ABT.ABS YEAR ); 

M := MONTH NUMBER ( ABT.ABS MONTH De 

D := DAY NUMBER ( ABT.ABS DAY ); 


-- Convert hours, minutes, seconds of ABT to seconds ( RELATIVE, Eas 
RTM :;= MAKE REEATIVE Ive ABT.ABS HOUR, 

ABT.ABS MINUTE, 

ABT.ABS SECONDS ); 


-- Convert RELATIVE TIME type of RTM to DAY DURATION subtype, 
--— then represent all values in terms of CALENDAR.TIME 

S := DAY DURATION ( RTM ); | 

TM := TIME OF ( Y, M, D, S ); 


== Use CALENDAR “+” function to acd inpub (Os jecres 
TM *= CALENDAR. 7+” YoUM,, DURATION Gen an 


~~ Extract necessary values to fill ABSOLUTE  FiMe rer rede var tan 


Yo Ae (oe aa 

WO OME SI ABS) 

De = DE Eee, 

Se oe COND Smet) 

-- Fill ABSOLUTE TIME returned variable 

RABT .ABS YEAR := NATURAL M() YG 
RABT.ABS MONTH := NATURAL ( M ); 

RABI ABS DAY == NATURAL (Sb e 

RABT.ABS HOUR := HOURS ( RELATIVE TIMES ee, 
RABT.ABS MINUTE := MINUTES ( RELATIVE, PIME (9S) )); 
RABT.ABS SECONDS := SECONDS ( RELATIVE TIME (5 )); 


return RABT; 


1 Ws 


end pe 7 : 


memetion “+” 
( RT : RELATIVE TIME; 
ABT : ABSOLUTE TIME ) return ABSOLUTE TIME is 


for ; ABSOLUTE TIME; 
Pe; RELATIVE TIME; 
iti: TIME, 


Y : YEAR NUMBER; 

M : MONTH NUMBER; 

D : DAY NUMBER; 

S : DAY DURATION; 

begin 

-- Use CALENDAR functions to get year, month, day of ABT 
Y := YEAR NUMBER ( ABT.ABS YEAR )j; 

M := MONTH NUMBER ( ABT.ABS MONTH ); 

D := DAY NUMBER ( ABT.ABS DAY ); 


Sewconvert hours, minutes, seconds of ABT to seconds ( RELATIVE TIME ) 
Pitt) :> MAKE RELATIVE TIME ( ABT.ABS HOUR, 
ABT.ABS MINUTE, 

ABT.ABS SECONDS ); 


eeconvert RELATIVE TIME type of RTM to DAY DURATION Subtype, 
-- then represent all values in terms of CALENDAR. TIME 

owee— DAY DURATION ( RIM }); 

ime [iM OF ( Y, M, D, S ); 


Geese CALENDAR “+” function to add input objects 
ier: —= CALBENDAR.”’+” ( TM, DURATION ( RT ) ); 


—— Extract necesSary values to fill ABSOLUTE TIME returned variable 


Mmeec— YEAR ( IM ); 
ie s= MONTH ( IM ); 
iee— DAY ( IM ); 


ZS 


SS 


SECONDS (25M); 


-- Fill ABSOLUTE TIME returned var taeme 


RABT 
RABT 
RAGE 


RABT. 


RABT 
RABT 


.ABS YEAR := NATURAL ( Y ); 

.ABS MONTH := NATURAL ( M ); 

.ABS DAY := NATURAL ( D ); 

ABS HOUR := HOURS ( RELATIVE TIME ( §S ) ); 

.ABS MINUTE := MINUTES ( RELATIVE TIME ( S ) ); 
.ABS SECONDS := SECONDS ( RELATIVE TIME ( S ) ); 


TeLurn RABI, 


end Peis 


ese es © © © #8 © e@® 8 ®@® e@ ee e@ #® @& @ #* © @ 8 @ e@ © # @ @& © @ © #2 # @ # 


Cr er | 


funclicn. — 


(tly 


The 
TM2 
DUR 
Pail 
12 
Mi 
M2 
Bal 
D2 
Sy 
SZ 
isda bs 
RT2Z 


begin 


TZ :; ABSOLUTE TIME |) return RELATE ees 


TIME; 


DURATION; 


YEAR_NUMBER; 


MONTH NUMBER; 


DAY NUMBER; 


DAY DURATION; 


RELATIVE TIME; 


—— Use CALENDAR functions to get year ,emomrn, day ocean 


acl 
XZ 
M1 
M2 
Di 


YEAR_NUMBER ( T1.ABS YEAR ); 
YEAR_NUMBER ( T2.ABS YEAR ); 
MONTH_NUMBER ( T1.ABS MONTH ); 
MONTH_NUMBER ( T2.ABS MONTH ); 
DAY_NUMBER ( T1.ABS DAY ); 
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D2 := DAY NUMBER ( T2.ABS DAY ); 


=—- Convert hours, minutes, seconds of Ti, T2 to seconds ( RELATIVE TIME 
) 


Rd 


MAKE RELATIVE TIME ( T1.ABS HOUR, 
T1.ABS MINUTE, 
T1.ABS SECONDS ); 
RT2 := MAKE RELATIVE TIME ( T2.ABS HOUR, 
T2.ABS MINUTE, 
T2.ABS SECONDS ); 


memmeonvert RELATIVE TIME types of Tl, TZ to DAY DURATION subtype, 
-- then represent all values in terms of CALENDAR.TIME 


Sl := DAY DURATION ( RTI ); 

e2:-— DAY DURATION ( RTZ ); 

TMl := TIME OF ( Y1, Ml, Di, Sil ); 

See — TIME OF ( YZ, M2, D2, S2 ); 

Seeuse CALENDAR “-” function to Subtract T2 equivalent from Tl 
equivalent 

Bee :— CALENDAR.”-” ( ITM1, TIM2 ); 


meturn RELATIVE TIME ( DUR ); 


end ae 


mumecLon “<“ 
eb, T2 : Peso tte IME) 2eturasSOOLEAN 1s 


TM1, 

TM2 : TIME; 

DUR : DURATION; 
Me; 

Y2 : YEAR NUMBER; 
M1, 

M2 : MONTH NUMBER; 
D1, 

D2 : DAY NUMBER; 
Sie 

S2 : DAY DURATION; 
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Rie 
RT2 = REMAP vs eM 


begin 


-- Use CALENDAR functions to get year, month, day of Ti, Tz 


Yl := YEAR NUMBER ( T1.ABS YEAR); 
Y2 := YEAR NUMBER ( T2.ABS YEAR ); 
M1 := MONTH NUMBER ( T1.ABS MONTH ); 
M2 := MONTH NUMBER ( T2.ABS MONTH ); 
D1 := DAY _NUMBER ( T1.ABS DAY ); 

D2 := DAY NUMBER ( T2.ABS DAY ); 


~~ Convert hours, minutes, seconds of Tl, T2 to seconds (| REEATT ea 
) 
RT1 := MAKE RELATIVE TIME ( T1.ABS_ HOUR, 
T1.ABS MINUTE, 
TLABsSesheOND om); 
MAKE RELATIVE TIME ( T2.ABS HOUR, 
Zeb Bo MING T i, 
T22ABS SECONDS 


Ree 


i 


-~ Convert RELATIVE TIME types of Tl, T2 tO DAY TDURATTONSsuse ee 
-- then represent all values in terms of CALENDAR.TIME 
Sf 3= DAY DURAT PC tien: tela r, 


S2 := DAY DURATION ( RT2 ); 
TMI 2 = TIME Om yp ea ee lem 
TM2 := TIME OF ( Y2;°™2; D27ec2u)e 


-- Use CALENDAR “<“ function to compare T2 equivalent to Tl equivaleus 
return CALENDAR.” <" ( IMI} ThiZeoe 


erick Ve 


i eS i i i er | 


end ABSOLUTE TIME PKG; 
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APPENDIX L 


DISTANCE PACKAGE 


em mr mr mr rr a wr rr rs rs rs rs ars rs cr rr ws re ee ee ee ee ees es ee ee ee ee ee 
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== Authors : Richard T. Irwin 
-- Willie K. Bolick 


mameace : 29 August 1991 


Ce ee ee i e) 


—— Description : Defines data subtype DISTANCE and associated functions 


mmm a a a a a a a a a a a a a a ee ee ee ee ee ee ee 
rr crm rm ee ee ee ee ee ee ee ee ee SS SSS LS SS SS SS SS SS SS SS SS SS SS Le ae ae ae ee Oe Oe oO Oe OO Oe Ee 


meaexage DISTANCE PKG is 
Subtype DISTANCE is FLOAT; -- Units : yards 


—-— Larger than any observable range. 
MIVEOMITED : constant DISTANCE := FLOAT’ LAST; 


—— Unknown altitude. 
UNKNOWN : constant DISTANCE := — UNLIMITED; 


=—— Converts nautical miles to yards 
function Awe AUT ECA MELE s DiSTANCE 
mM: FLOAT ) return DISTANCE; 


See OnVerts yards to nautical miles 
mince lon DISTANCE IN NAUTICAL MILES 


oo; DISTANCE ) return FLOAT; 


pragma INLINE 
( MAKE NAUTICAL MILES DISTANCE, 


ZA 


DISTANCE IN NAUTICAL MILES ); 


end DISTANCE PKG; 


mem mm mem rw ws ws ms sr mm rs wc re rs re a i ae ae ee ee Ce ee 
SeSCCLS= FSS SS ES LE LS LS LS TLS LS ELE SS ELS SS SSS Ee ESS ESS ESS ESS ESS ESS Ee ee ee en a a re ee ee ee ee ee ee ae aS SS SS SS ee 


--— Authors : Richard T. Irwin 
-- Willie K. Bolick 


-— Date 2929 fuguscels 


mm rr ae a aes ee ee ne ae LLL CL CL 
SS ee ee ee ee ee eee ee re re re re re re rs ee ee ee ee SS SS ES ee Se ee 


package body DISTANCE hae. 


YDS_IN NAUTICAL MILE : constant FLOAT := 6080.2 / 3.0; 


I MAKE NAUTICAL MILES DISTANCE.......... 9 
function MAKE NAUTICAL MILES DISTANCE 

( NM : FLOAT ) return DISTANCE is 

begin 

return NM * YDS _IN NAUTICAL MILE; 

end MAKE NAUTICAL MILES DISTANCE; 


eee AE ay ite... - DISTANCE IN NAUTICAL MILES........... 0. 
function DISTANCE IN NAUTICAL MILES 

( D : DISTANCE ) return FLOAT is 

begin 

return D / YDS_IN NAUTICAL MILE; 

end DISTANCE IN NAUTICAL MILES; 


a i) 


end DISTANCE PKG; 
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APPENDIX M 


GLOBAL OBSERVATION PACKAGE 


mr i i i i is cr is i ss i nn ee we ee 
—_——<—— oe ee ee ee ee ee ee ee ee ee ee ee ee SS SS SS SSS SS ES SS SS LS SS Le SS LS LS SS LS LS SS EE EE EE EE LE SS SS ES SE ES OO SS SCC CoCo SS Sl ___s2e__ _2_2_QoloQc.Sc == = 


Peet nors : Richard T. Irwin 
fer tlie K. Bolick 


BewWate : 29 August 1991 


eo ee e& ee ®& & © & © © & © & & © & © © & © © © © © © © ee 37 eee ee ee ee © ee se ee ©— © © © es © ee ee se ee we ee ee © es ws ew te hl hermhlUr hl hmhlUlUr hl lhl hlhlUlclhlUlUlrhlU 


mebescription : Defines data type GLOBAL OBSERVATION 


a i i rr ns wm, is i es ee ee ee ee ee ee, ee oe 
ce ee ee ee ee SS SS SS SS ee eS SS SS ES ES ES ES ES ES EES EES ES Ee Ee SS ee 


meee GLOBAL POSITION PKG, VELOCITY PKG, ABSOLUTE TIME PKG; 
use GLOBAL POSITION PKG, VELOCITY PKG, ABSOLUTE TIME PKG; 
package GLOBAL OBSERVATION PKG is 


type GLOBAL OBSERVATION is 
record 

EOSITION : GLOBAL POSITION; 
COURSE AND SPEED : VELOCITY; 
OBSERVATION TIME : ABSOLUTE TIME; 


end record; 


end GLOBAL OBSERVATION PKG; 
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APPENDIX N 


GLOBAL POSITION PACKAGE 


me me re rr er rm re a a rr rm re es es es i re ee 
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—-- Authors : Richard T. Irwin 
—— Willie K. Bolick 


== Date = 29 7Adeust wi oe 


oeoeeee%e%«Fee# # # # #® @® © @© © #® # #® # # #® #® © © # ® ® # #2 @© #® @© #® #® @#® @ @® #@® @# #@® @® @ @® @© @® © @® @ @® @® @® @® @ @ © @® @® @ a @ #@# @©@ © © © @ @ @ @ 


—-— Description : Defines abstract datatype enOe eso hele eee 
associated 


—-—. funeE1OMs, procedumes 


me me ee re re ee re ee rr re re mr rm es re re re ee re ee ee ree ee ee ee ee ee 
rm me rm rm mmm rm er a a ee 


with RELATIVE POSITION PKG, ANGLE PKG, DISTANCE PKG; 
use RELATIVE POSITION PKG, ANGLE PKG, DISTANCE PKG; 


package GEOBAL POSIT TiC ekGar. 


type GLOBAL POSITION is private; —- Harth Cee vane 
type NORTH SOUTH is (N, S );-- Specifies latitude hemispere 
type EAST WEST is ( E, W );-- Specifies longitude hemisphere 


-— Converts lat/long degrees, Minutes, seconds ©o GLOBAL POSITION 
function MAKE GLOBAL POSITION 

( LATITUDES DARECTION = NORTH_SOUTH; 

DAT TUDE SOEGKEES: =~ NATURAL: 

LATITUDE MINUTES : NATURAL; 

LATITUDE SECONDS: Nat Uikzy, 

LONGT TUDE SDERECT IONe: EAST WEST; 

LONGITUDE DEGREES : NATURAL; 
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BONGITUDE MINUTES : NATURAL; 
metGITUDE SECONDS : NATURAL ) return GLOBAL POSITION; 


—— Finds bearing & range ( RELATIVE POSITION ) from 1 earth coordinate 
iO 

Seeanother 

femction FIND RELATIVE POSITION 


[CONTACT, 
REFERENCE POINT : GLOBAL POSITION ) return RELATIVE POSITION; 


-- Returns an earth coordinate, given 1 earth coordinate and a bearing & 
range 

-- ( RELATIVE POSITION ) 

ject ton FIND GLOBAL POSITION 

Merron l :; RELATIVE POSITION; 

PeemRENCE POINT : GLOBAL POSITION ) return GLOBAL POSITION; 


@emekecurns length of the great circle path from pl to p2 
mimecei1on GREAT CIRCLE DISTANCE 

wel, 

fee: GLOBAL POSITION ) return DISTANCE; 


Seeeecturns true bearing at position pl of the great circle path from pl 
ico) yey 

function GREAT CIRCLE BEARING 

oe Ly 

Eee: GLOBAL POSITION ) return ANGLE; 


—-- Returns latitude ( in familiar terms, degrees, minutes, seconds ) of 
a 

-- given GLOBAL POSITION 

procedure GET LATITUDE 

fee oof TION =: in GLOBAL POSITION, 

Pee EITON ; Out NORTH SOUTH; 

DEGREES : out NATURAL; 

MINUTES : out NATURAL; 

SeeONDS =< Out NATURAL ); 


Seeseceurnis longitude ( in familiar terms, degrees, minutes, seconds ) of 


a 
—— given GLOBAL POSITION 
procedure GET LONGITUDE 


Pa 


( POSITION : in GLOBAL POSITION, 
DIRECTION : out EAST WEST; 
DEGREES : out NATURAL; 

MINUTES : out NATURAL; 

SECONDS : out NATURAL ); 


pragma INLINE ( MAKE GLOBAL POSITION, FIND_RELATIVE_POSITION, 
FIND GLOBAL POSITION, GREAT_CIRCLE_DISTANCE, 
GREAT CIRCLE BEARING, GET LATITUDE, GET_LONGITUDE ); 


private 


type GLOBAL POSITION is 

record 

THETA : ANGLE; --— Longitude angle in radians, =2p1 to Zp2 
——- 0.0 = Greenwich Meridian 

—=- 0.0 to 2Zpi = East longtime 

PHI : AZIMUTH; =— Latitude angle in radigmcye oi ereme 
—-— 0.0 = cCovatror 
== 0.0 to pa = Neren Meugieage 

end record; 


end GLOBAL POSITION PKG; 


mm a a a a a a a a a a a i a a a a a a a a a a a a a a 
eee eee a aS a aS a i a a i a aS LL Se a SE SL 8 i Se aT SS SE SS ES eS ee Ee 


== AUtChnors.*. Richardel.. lawn 
—-- Wililje K. Bolwer 


—= Dake =S27 eAucust. 19ot 
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with MATH, VECTOR 2 PKG; 
uSe VESTOReZ SEG, 


package body GLOBAL POSITION PKG is 


Lee 


mometiOn MAKE GLOBAL POSITION 

MecalitUDE DIRECTION : NORTH SOUTH; 

GetTTUDE DEGREES : NATURAL; 

LATITUDE MINUTES : NATURAL; 

LATITUDE SECONDS : NATURAL; 

BENGITUDE DIRECTION : EAST WEST; 

LONGITUDE DEGREES : NATURAL; 

LONGITUDE MINUTES : NATURAL; 

LONGITUDE SECONDS : NATURAL ) return GLOBAL POSITION is 


ime DEG, 
LONG DEG : FLOAT; 
GP : GLOBAL POSITION; 


begin 


—- Convert latitude, longitude to seconds 

mee OSG 2= PLOAT ( LATITUDE DEGREES *93600 + LATITUDE MINUTES * 60 + 
fet TUDE SECONDS. ); 

menG DEG := FLOAT ( LONGITUDE DEGREES * 3600 + LONGITUDE MINUTES * 60 + 
LONGITUDE SECONDS ); 


—— Convert longitude seconds to radians (0..PI = east, -PI..0 = west) 
PetnistA >> ANGLE (@NONGEDEG / 3600.0 * MATH.PI / 180.0 ); 


if LONGITUDE DIRECTION = W then 
Sewer A >= —GP.THETA; 


enc 1.1% 


Bene cOmvert latitude seconds to radians (0..PI/2 = north, -PI/2..0= 
south) 


GP.PHI := AZIMUTH ( LAT DEG / 3600.0 * MATH.PI / 180.0 ); 
if LATITUDE DIRECTION = S then 
GP.PHI := -GP.PHI; 


end if; 


return GP; 
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end MAKE GLOBAL POSITION; 


Eumceion FIND eRe ye ePOSLTION 
( CONTACT, 
REFERENCE POINT : GLOBAL POSITION ) return RELATIVE POSITION is 


DELTA LAT IN_NM, 


DELTA LONG IN_NM : FLOAT; -- In nautical miles 
DELTA LAT IN RADIANS : AZIMUTH; -- In radians 
DELTA LONG IN RADIANS : ANGLE; -- In radians 


CTC REI, POS (SREEAT rye Oo Tiley 


begin 


-- Compute change in latitude ( radians ) 
DELTA _LAT_IN RADIANS =: = CONTACT PHl— RERERENC liar Osh ne, 


--If E / W hemisphere change over International Date Line 
if ( CONTACT THETA * REFERENCE FOind THETA <0) 0 imana 
( ABS ( CONTACT .THETA — REFERENCE, POUND? Tie A) tie tis pela ee 


-- Tf going East to West 

if REFERENCE POINT.THETA > 0.0 then 

DELTA_LONG IN RADIANS := MATH.PI * 270)>- ( REPERENCE POR) i 20 
CONTACT? THE hAr 

-- If going West to East 


else 

DELTA_LONG_IN RADIANS := - MATH.PI * 2.0 - ( REFERENCE POINT.THETA - 
CONTACT .THETA ); 

ena “aa, 


-- No change in E / W hemispheres 

else 

DELTA LONG IN RADIANS := CONTACT.THETA - REFERENCE S Cea ae ey 
end iif; 


-- Convert lat/long change to nautical miles 


-~- 1 degree ( in radians ) of change = 60 miles 
DELTA_LAT_IN_NM := DELTA _LAT_ IN RADIANS * 180.0 / MATH.PI * 60.0; 
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Bett? LONG IN NM :—= DEETA LONG IN RADIANS * 180.0 / MATH.PI * 60.0; 


-- Convert the changes in lat/long to DISTANCE ( yards ) 
meeenen initialize the RELATIVE POSITION (2-D vector) 


CTC REL POS := MAKE CARTESIAN VECTOR 2 
( FLOAT ( MAKE NAUTICAL MILES DISTANCE 
( DELTA LONG IN_NM ) ), 


FLOAT ( MAKE NAUTICAL MILES DISTANCE 
( DELTA _LAT_IN_NM ) ) ); 


meeurnl CTC REL POS; 


end FIND RELATIVE POSITION; 


emer ton FIND GLOBAL POSITION 
meoee se? : RELATIVE POSITION; 
moe NCE POINT ; GLOBAL POSITION ) return GLOBAL POSITION is 


DELTA LAT IN_NM, 


peta LONG IN NM : FLOAT; -- in nautical miles 
wera GAT IN RADIANS : AZIMUTH; -- in radians 
PieGtA LONG IN RADIANS : ANGLE; ——- in radians 


mie POSa TION : GLOBAL POSITION; 
begin 


= Get Changes in lat/long & convert to nautical miles 


DELTA LAT IN NM := DISTANCE IN NAUTICAL MIL: / Y COORDINATE ( OFFSET ) 
1s 


DELTA _LONG IN _NM := DISTANCE IN NAUTICAL MILES ( X COORDINATE ( OFFSET 
le); 


-- Convert NM to radians 


DELTA_LAT_IN RADIANS := AZIMUTH ( DEGREES TO RADIANS 
( DELTA LAT IN_NM / 60.0 ) ); 


DELTA LONG IN RADIANS := DEGREES TO RADIANS ( DELTA LONG IN NM / 60.0 
); 


-- If the target lies on the other side of the pole, don’t 
-- make the resultant latitude > 90 degrees 


ZZ) 


if ABS ( REFERENCE POINT.PHI + DELTA _LAT_IN_RADIANS ) > MATH.PI / 2.0 
then 


-- If going over the south pole 

if DELTA _LAT_IN_ RADIANS < O70" chen 

CTC POSITION.PHI := — MATH.PI — ( REF ERSNCH eo Ne a 
DELTA LAT _IN RADIANS ); 

-- Going over the north pole 


else 

CTC POSITION.PHI := MATH.PI - ( REFERENCE POINT.PHI + 
DELTA LAT IN RADIANS ); 

euayels abaey 


-- If we cross the n/s pole, we also change e/w hemispheres 
DELTA LONG_IN RADIANS := DELTA_LONG IN RADIANS + MATH.PI; 


—-— Not going over the n/s pole 

else 

-—- ASSicGn target’ 5 Latitude (sim. cacdianwce) 

CTC _POSITION.PHI := REFERENCE POINT.PHI + DELTA LAT IN RADIANS; 


end it; 


-- If target lies in other e/w hemisphere 
if ABS ( REFERENCE POINT.THETA + DELTA LONG IN RADIANS ) > MATH.PI then 


-~ Target iS in western hemisphere 
if DELTA_LONG_IN RADIANS < 0.0 then 


DELTA_LONG_IN RADIANS := DELTA LONG _IN RADIANS + MATH.PI * 2.0; 

-- Target 1S in eastern hemisphere 

else 

DELTA _LONG_IN_RADIANS := DELTA_LONG IN RADIANS - MATH.PI * 2.0; 

end if; 

eng Lt ; 

—— ASSIGN target’ Ss longitude 

CT@ BOs tron tanta ys REFERENCE POINT.THETA + DELTA LONG IN RADIANS; 


return Cle POsSLiIION, 
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end FIND GLOBAL POSITION; 


5 o dao ee Cree ether ie Wms TANCH so. 6... vs ss oa ee - 
mece1On GREAT CIRCLE DISTANCE 
( Pl, 
Bee GLOBAL POSITION ) return DISTANCE is 
See RG BRG ; RELATIVE POSITION; 


begin 


memeind where P2 is in relation to Pl ( bearing & range ) 
CTC RG BRG := FIND RELATIVE POSITION ( Pl, P2 ); 


@mmerecurn Only the range ( great circle ) 
mein RANGE OF ( CTC RG BRG ); 


end GREAT CIRCLE DISTANCE; 
sabe 6 GREAT CIRCLE BEARIN 
function GREAT CIRCLE BEARING 
mee, —— From 
fe -—- TO 
SECRET POStTION ) return ANGLE is 
CTC RG BRG : RELATIVE POSITION; 


begin 


=— Find where P2 is in relation to Pl ( bearing & range ) 
See Ge RhG ;— FIND RELATIVE POSITION ( Pl, P2 ); 


=- Return only the bearing ( great circle ) 
meee BEARING TO ( CTC RG BRG ); 


end GREAT CIRCLE BEARING; 
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procedure GET LATITUDE 
(POST Trey 
DIRBCTION 
DEGREES 
MINUTES 
SECONDS 


Out NORTH SOUTH, 
NATURAL; 
NATURAL, 
NATURAL ) 


Our 
out 
Out is 
PH = 
DEG 
MIN 


SEC 


AZIMUTH 
NATURAL; 
NATURAL; 
NATURAL; 


POST TIONSERL, 


begin 


-~ If the value Gf target’ sero seo, 


if -PH < 020 then 
DiRECTIONS.— so. 
PH := -PH; 

else 

DERECTION :-= N; 
hore meine 


-- Convert latitude ( radians 
SEC := NATURAL ( FLOAT ( PH ) 
-- Calculate degrees, minutes, 
DEG == J5EC 7/ =S5600; 

MIN == SEC -—SDEG. 3000 0= aw, 
SEC := SEC - DEG * 3600 — MIN 
DEGREES := DEG; 

MINUTES := MIN; 

SECONDS <= SEC; 


end GET LATITUDE; 


7 


procedure GET LONGITUDE 
( POSITION 


in GLOBAL POSITION; 


it’s in the southern hemisphere 


) to seconds 
180-077 MATH UF I 


* 


pies (510/000) ick 


seconds 


our 
60: 


* 


ea e WJ et e a Ne TS Ot lh AY et crlctlctlcemlCUC ml mlmlCtmUCPtmUCPtmUCPmUCOCPlUCMUCUClUMUCUCl DCU OH 


in GLOBAL POSITION; 
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PERE CTION : out BAST WEST; 
DEGREES : out NATURAL; 
MINUTES : out NATURAL; 
BECONDS : Out NATURAL )) is 


Mies ANGLE := POSITION. THETA; 
DEG : NATURAL; 
MIN : NATURAL; 
SEC : NATURAL; 


begin 


-— If the value of target’s THETA < 0.0, it’s in the western hemisphere 
meer < 0.0 then 


DIRECTION := W; 
ies — —1lH; 

else 

PERECTION := E; 
ema if; 


—--— Convert longitude ( radians ) to seconds 
Zee NATURAL ( FLOAT ( TH ) * 180.0 / MATH.PI * 3600.0 ); 


—- Calculate degrees, minutes, seconds 
DEG SEC / 3600; 

Pete: = ( SEC — DEG * 3600 ) / 60; 

eee — SBC - DEG * 3600 — MIN * 60; 
DEGREES DEG; 

MINUTES MIN; 

SECONDS SHC; 


end GET LONGITUDE; 


end GLOBAL POSITION PKG; 
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APPENDIX O 


RELATIVE OBSERVATION PACKAGE 
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-= Authors © Pichard 1. 1rwin 
—— Willie K. Bolick 


== Daten. 82 7 eA Gl) See 
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—— Description : Defines data type REATI VEC boer ae] 


a a i rr rr rs rs a ee a ee a 
a ee ee ee ee ee Se Se SL LL SL ee 


with RELATIVE POSITION PKG, CALENDAR; 
use RELATIVE POSITION PKG, CALENDAR; 
package’ RELATIVE SeoekvVeallOngekoers 
type RELATIVE bsekvALIChe rs 
GeGOnd 
POSLTION { REGATEVEREOsL EIGN, 
OBSERVATION TIME =: TIME; 


end record; 


end RELATIVE _OBSERVATION PKG; 
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APPENDIX P 


RELATIVE POSITION PACKAGE 


ee a te re re re cre re re re re re re rr re mr mr rr re rr rr a me re ee ee ee ee ee ee ee ee ee ee ee 
Ee ss se 


Seat miOors : Richard T. Irwin 
—-— Willie K. Bolick 


eeeDate : 29 August 1991 
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-— Description : Defines data type RELATIVE POSITION and associated 
fmomctlons 


mn a a a a a a a a a a a i a a ee re a ee ee oe ee ee ee ee ee ee ee ee ee 
SS SLL LL i eee eee a a i a a a ae a i SS ES ES ES i. SS SS i SS Ee Ee Ee Ee LE LE LE Ee LS 


Pee VECTOR 2 PKG, DISTANCE PKG, ANGLE PKG; 
lise VECTOR 2 PKG, DISTANCE PKG, ANGLE PKG; 
meemage RELATIVE POSITION PKG is 


Seleeype RELATIVE POSITION iS VECTOR 2; —- Two dimensional position 
Vector. 


Meeceurns Ehe distance portion of a 2-D RELATIVE POSITION vector 
function RANGE OF 
meOONTACT >; RELATIVE POSITION ) return DISTANCE 

renames VECTOR 2 PKG.LENGTH; 


——- Returns the bearing portion of a 2-D RELATIVE POSITION vector 
function BEARING TO 
mec ONTACT =: RELATIVE POSITION ) return ANGLE 

renames VECTOR 2 PKG.DIRECTION; 


pragma INLINE ( RANGE OF, BEARING TO ); 


end RELATIVE POSITION PKG; 
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APPENDIX Q 


TRACK DATABASE PACKAGE 


cm me me ms mr me ms me mr rs rs a a a a a a a se es ee ee ee = LL 
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-- Authors : Richard T. Irwin 
-- Willie K. Bolick 


—= Date: 29 Aucuse woo! 
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—- Description :; Defines abstract data type TR ey ee bean 
associated 


—— functions and wrocedires 


a wr ar rs a er rr a a a a re LL 
mr rr mr mr a ee ee ee ee ae ee ee ee ee SS SS ee ee ee ee ee ee 


with TRACK PKG; 
use TRACK PKG; 
package TRACK DATABASE PKG is 
type TRACK DATABASE is private; 
—— Determines whether or not a TRACK is active 
function ACTIVE TRACK 
( DBASE : TRACK DATABASE ) return BOOLEAN; 
-- Restores active TRACK to database before new one is activated 
procedure RESTORE ALTERED TRACK TO DATABASE 
( TRAK 2am] TRACK: 
DBASE : in out TRACK DATABASE ); 
--— Finds a TRACK in the database by track number 


procedure FIND TRACK IN DBASE 
( TRAK_NUM : in NATURAL; 


By) 


meek : in out TRACK; 
DBASE : in out TRACK DATABASE ); 


-- Adds a new TRACK to the database 
procedure ADD TRACK TO DBASE 

(eeaAK = in TRACK; 

DBASE : in out TRACK DATABASE ); 


Semel eeacKs Object & all aSsSociated observations of that TRACK 
eemore purged. Only the currently active TRACK can be deleted. 
procedure DROP_TRACK FROM DBASE 

( DBASE : in out TRACK DATABASE )j; 


-- Drops all TRACKS from the database and sends them to history 

—— Should be automatically invoked upon termination of main program 
Pmececure PURGE ENTIRE DBASE 

immense >; in Out TRACK DATABASE ); 


pragma INLINE ( ACTIVE TRACK, RESTORE ALTERED TRACK TO DATABASE, 


FIND TRACK IN DBASE, ADD TRACK TO DBASE, 
DROP_TRACK FROM DBASE, PURGE ENTIRE DBASE ); 


private 

Eype TRACK NODE;-—- Elements of the TRACK DATABASE 
type TRACK PTR is access TRACK NODE; 

jype TRACK NODE is 

record 

TRAK : TRACK; 

iy TRACK : TRACK PTR; 


end record; 


type TRACK DATABASE is 


mecord 

Pere OSTTION 2 TRACK PTR; == Points to OWNSHIP TRACK 

oe ie ere OS PON. ERACK PTR, —> PointS to currently active TRACK 
Peo TRACK EOS IITG@N = IRACK PTR; -=— Poants to TRACK before active 


—— TRACK for relink purposes after 
-- active TRACK is deleted 
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end recora,; 


end TRACK DATABASE PKG; 


me cm cr cr cr rm re rr i ae a 2 ee ee ee = oe ee L 
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—— Authors : Richard T. irwin 
—-—- Willie K. Bolick 


-= Date = 29 eAugus eee 


mi mr rr i i i i cr a cr err ar i es es we w= 2 ee ee 
re ee ee ee ee ae ie Ss Ss eS Se ee eS SS SS Se ES EE SS ee SS 


with UNCHECKED DEALLOCATION; 
package body TRACK DATABASE PKG is 


procedure FREE TRK is 
new UNCHECKED DEALLOCATION ( TRACK NODE, TRACK PTR ); 


LUNCULOnN AGT IVE STRAGr 
( DBASE : TRACK DATABASE ) return BOOLEAN is 


begin 

alae DBASE ..CURRENT TRACK BOSiITION@=anuli thes 
return FALSE: 

end ibe 


return TRUE; 


end ACTIVE TRACK; 


ee Oe RESTORE ALTERED TRACK TO DATABASE... ..- 2. 
procedure RESTORE ALTERED TRACK TO DATABASE 

( TRAK : in TRACK; -- altered TRACK 

DBASE : in out TRACK DATABASE ) is 
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begin 


-— If currently active TRACK was not deleted 
#f ACTIVE TRACK ( DBASE ) then 


-- Restore currently active TRACK 
Pease .CURRENT TRACK POSITION.TRAK := TRAK; 


-- Restore OWNSHIP TRACK, if necessary 

if DBASE.CURRENT TRACK POSITION = DBASE.OWNSHIP POSITION then 
Doe ee OWNSHIP POSITION.TRAK := TRAK; 

end if; 


end if; 


end RESTORE ALTERED TRACK TO DATABASE; 


meocedure FIND TRACK _IN_DBASE 

( TRAK_NUM : in NATURAL; 

Meek ; in out TRACK; 

DBASE : in out TRACK DATABASE ) is 


begin 


Seemestore Currently active TRACK before reassigning current pointer 
RESTORE ALTERED TRACK TO DATABASE ( TRAK, DBASE ); 


mei TRAK NUM /= 0 then-- not OWNSHIP 


eee. CURRENT TRACK POSITION := DBASE .OWNSHIP POSITION .NEXT TRACK; 
eee RIOR TRACK POSITION := DBASE.OWNSHIP POSITION; 


Pees DBASE CURRENT TRACK POSITION /= null ) and then 

jlRACK ID NUMBER ( DBASE.CURRENT TRACK POSITION.TRAK ) > 
TRAK_ NUM ) loop 

ea ota: OR TRACK POSITION :—= DBASE.CURRENT TRACK POSITION; 


DBASE.CURRENT_TRACK POSITION := 
DBASE .CURRENT_TRACK POSITION.NEXT_ TRACK; 


I 3) 


end loop; 


else 

DBASE . CURRENT TRACK (POs Firion := DBASE .OWNSHIP POSITION; 
DBASE.PRIOR Teach POs iin -=" TW 

end if; 


-- If TRACK found, return it 
if ( DBASE.CURREND TRACKHEOGSITION /- ull) Seneetnca 


( TRACK ID NUMBER ( DBASE.CURRENT TRACK POSTTION TRAK = TRAK NUM ) 
then 

TRAK := DBASE.CURRENT TRACK POSITION. TRAK; 

else --— TRACK not found 

DBASE . CURRENT TRACK FCSIIION |: = nue 

end if; 


end FIND TRACK _IN DBASE; 


procedure ADD_TRACK TO DBASE 
( TRAK “22m URAGhs, 
DBASE : in Out TRACK DATABASE ) is 


T P ; TRACK PTR; 


begin 
TRE e:— new TRACK NODE, 
TSR ehaAKe =a RAK 


If’ DBASE .OWNSHIP POSITION = nine 


-- first track entered ( OWNSHIP ) 
DBASE .OWNSHIP_ POSITION := T P; 


DBASE.PRIOR_TRACK POSITION := T P; 


else 
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—— All new TRACKs are entered in the TRACK DATABASE linked list 
-- immediately following OWNSHIP 

fee. NEAT TRACK := DBASE.OWNSHIP POSITION.NEXT TRACK; 

Meo OWNSHIP POSITION.NEAT TRACK := T P; 

Beeb. PRIOR TRACK POSITION := DBASE.OWNSHIP POSITION; 

end if; 


DBASE.CURRENT TRACK POSITION := T P; 


end ADD TRACK TO DBASE; 


a DR@p Gn Oh ePROM WENGE 0%. ssc. ee nee ce eas 
Procedure DROP TRACK FROM DBASE 

meeebAst =; in out TRACK DATABASE ) is 

mage LRACK >= DBASE.CURRENT TRACK POSITION. TRAK; 


begin 


—-- OWNSHIP cannot be dropped 
if DBASE.CURRENT TRACK POSITION /= DBASE.OWNSHIP POSITION then 


Bees ectua TRACK Gata & all its obServations to archive file 
DELETE TRACK AND SEND TO HISTORY ( TR ); 


DBASE.PRIOR TRACK POSITION.NEXT TRACK := 
DBASE.CURRENT TRACK POSITION.NEXT TRACK; 


—-- Free deleted TRACK’s memory space 
Pemeerkk { DBASE.CURRENT TRACK POSITION ); 


end if; 


end DROP_TRACK FROM DBASE; 


procedure PURGE ENTIRE DBASE 
(PEASE =; im Out TRACK DATABASE } is 


75S) 7) 


OP : TRACK PTR := DBASE.OWNSHIP POSITION; 
CP, PP : TRACK_PTR; 
TRAK : TRACK := OP.TRAK; 


begin 


-~ Send OWNSHIP data & all its observations to archive file 
DELETE TRACK AND SEND TO HISTORY ( TRAK ); 


-- Get next TRACK in database 
CP := OP.NEXT_ TRACK; 


-- Delete TRACKS, send data to archives, and free up memory for all 
-~ TRACKs in the database 

while CP /— nullieicop 

TRAK := CP.TRAK; 

DELETE TRACK AND SEND TO HISTORY ( TRAK ); 

PP := CP.NEXT_ TRACK; 

FREE ie seme 

CE = EE. 

end loop; 


FREE TRK ( OP ); 


DBASE.OWNSHIP POSITION := null; 
DBASE.CURRENT_TRACK POSITION := null; 
DBASE.PRIOR TRACK POST TION = —snuaes 


end PURGE ENTIRE DBASE; 


5 a rr [a ct a Vr [jc jr er ur ul et er ler ler er yer uur Wy Jenn mer yum peer yest yu 7s 4 


end TRACK DATABASE PKG; 
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LINK PACKAGE 
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—— Authors : Richard T. Irwin 
—— Willie K. Bolick 


—— Date : 29 August i991 
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—— Description : Defines abstract data type LINK TYPE and associated 


—-— functions and procedures 


i a es ee ee ee ee ee ee ee ee ee eee ee ee ee ee 
te ee me i se ee ee 8 SE SS ES SS SS ee eae Ee Ee Ee Ee Ee EE OEE Ee EE OE EE ES EE ee ee Ee 


with TRACK PKG, GLOBAL POSITION PKG, INTEGRATION SYSTEM PKG, 
RELATIVE TIME PKG, M SERIES MSG PKG; 


use TRACK PKG, GLOBAL POSITION PKG, INTEGRATION SYSTEM PKG, 
RELATIVE TIME PKG, M SERIES MSG PKG; 


package LINK PKG is 


TIME OUT DURATION : constant RELATIVE TIME := 3600.0; --<<<<----- + 
-- LINK TRACK times out after 1 hour of no updates | 
-- Actual value may differ once implemented --------------------- a 


mype LINK TYPE is private; 


myec LINK FABLE; 

eyec LINK PTR is access LINK TABLE; 
pc LINK PABLE is 

record 

LINK NUM : NATURAL; -- link assigned 


ZO 


TRK_NUM : NATURAL := 0; -- system assigned 
CTL ; GONTRORGIYEER, 92 ei auc 

NEXT LT : LINK _PTR; 

end record; 


-- Extracts & formats a link M series message to a LINK TYPE that 
== 18 Jaterrrans ormicderiee ae) enek 

function CONVERT M SERIES MSG TO LINK_TYPE 

( MSG: MeSERinS isG 2) He cun sh lNiee ee 


-- Creates a TRACK under LINK control from a LINK_TYPE 
procedure CREATE LINK TRACK | 
( LE > ins LINK yee, 

L TBE: 17 Oub eo UNiGE a 

TRK -: >in our TRACKS) 


—-- Adds a new observation to an existing LINK TRACK 
procedure ADD LINK OBSERVATION 

(LT. do i ee 

TR Oe Ae) 


-- All tracks reported over link are relative to DLRP 
-- ( Data Link Reference Point ) 

procedure MAKE DLRP_TRACK 

( DLRP : in GLOBAL POSITION; 

TRK : in@eut. Teac 


procedure FIND LINK TYPE IN TABLE BY LINK NUM 
( LN : in NATURAL;-- link table number 

LP ae SiN eer 

LT. Cul NK vr Eas, 


procedure FIND LINK TYPE IN TABLE BY TRK NUM 

( TN : in NATURAL;-- system assigned track number 
Lee it i eRe 

BT 2 Sout LINK TYPE.) 


-- Updates LINK_TABLE to reflect LOCAL control so no more link 
—= updates to that “tracheal ocenr 

procedure CHANGE LINK TRACK TO LOCAL TRACK 

( TN : in NATURAL ); 
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See isits Cach node in LINK TABLE 

aamcalls TIME OUT £6 see if outside acceptable update time 

—— If no update within specified period, assume link has dropped it & 
-- call DROP LINK TRACK AFTER TIME OUT 

Beocecure SCAN LINK TABLE FOR TIME OUTS 

feb: in out LINK PTR ),; 


—-- Deletes LINK TABLE entry after timeout 


SeemMakes call to INTEGRATION SYSTEM to drop TRACK, if not under LOCAL 
@onero] 


procedure DROP_LINK_ TRACK AFTER TIME OUT 
meee: in Out LINK PTR; 
TRK_NUM : out NATURAL ),; 


== Checks LINK TABLE to see if LINK TYPE is under LOCAL control 
function ASSIGNED LOCAL CONTROL 

( LT : LINK_TYPE; 

fee: GINK PTR ) return BOOLEAN; 


-- Calls FIND LINK TYPE IN TABLE BY LINK NUM 

Seer lags system to drop link track after no updates in pre-assigned 
= time period 

bumnetion TIME OUT 

( LN : NATURAL ) return BOOLEAN; 


pragma INLINE ( CONVERT _M SERIES MSG TO LINK TYPE, CREATE _LINK TRACK, 
ADD_LINK_ OBSERVATION, MAKE _DLRP_TRACK, 
FIND LINK TYPE IN TABLE BY LINK NUM, 
FIND LINK TYPE IN TABLE BY TRK NUM, 
CHANGE LINK TRACK TO LOCAL TRACK, 
SCAN LINK TABLE FOR TIME OUTS, DROP LINK TRACK AFTER _TIME_ OUT, 
ASSIGNED LOCAL CONTROL, TIME_OUT ); 


private 


mype LINK TYPE is 

Becor 

LINK_NUM : NATURAL; 

REL POS FM DLRP : RELATIVE POSITION; 
TIME OF_OBS : ABSOLUTE TIME; 
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Hels GiGy ed Bae TRAC ReCATEGORY, 
TRK ID DEN eee, 
ALTITUDE =< DISTANCE ©:.- 7020, 
end record; 


end LINK PKG; 
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APPENDIX S 


SYSTEM STATUS PACKAGE 


ems mm cc rm re rr rr i se es ee ee ee we ee ee ee 
SS SS iS iS ie ie in eee ee ee rm cr rr rr rr rr rr a a ee eee ee ee ae a ee ee ee ae ee ee Oe SS SS ee ee 


merit mors « Richard T. Irwin 
—~—- Willie K. Bolick 


eaembace : 29 August 1991 


* @¢ © © @© @ @ @© @ ®@® © @ @ © © @ @ #8 @ #8 © © 8 @ © @ @ @ @ @ @ © © 8© #® @ @ @ #@ © © #©@ © @ @ @ #@® @ © #® @ © @ © © © @®& #®# © ®@ @ @ © ww © @ © © © © @ @ 


eereescription : Defines abstract data type SYSTEM STATUS and associated 
-~— functions and procedures 


Maekage SYSTEM STATUS PKG is 


mype STATUS is ( UP, DOWN ); 
type SENSOR is ( LINK, GPS, RADAR, PITSWORD, GYRO, FATHOMETER ); 
type SYSTEM STATUS is private; 


Se Retrieves status of a particular sensor 
mmet ion GET STATUS 

mee STATUS : SYSTEM STATUS; 

SENoBR : SENSOR ) return STATUS; 


-—- Sets the status of a particular sensor 
meocedure SET STATUS 

[ors STATUS =: out SYSTEM STATUS; 

SeNokR + in SENSOR; 

me DOWN : in STATUS ); 


eeagma INLINE ( GET STATUS, SET STATUS ); 
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private 


type SYSTEM STATUS is 


record 

LINK STATUS : STATUS := DOWN; 
GPSuSTATUS. = STAIUS = Deu, 
RADAR_STATUS : STATUS := DOWN; 
PITSWORD STATUS |; “St2aUs yy. — Onn, 
GYRO STATUS : STATUS := DOWN; 
FATHOMETER STATUS : STATUS := DOWN; 


end record; 


end SYSTEM STATUS PKG; 


i a a a a a a ae ae a =e  —  _ _ C _ 
ee er ee ee ae ae ee Se 


——- Authors : Richara To iwi 
——- Willie K. Bolick 


=-— Date»: 29 August aioe 


a 
i a Se ne ee ee ee ee ie oe ne oe oe oe oe Be oe oe oe oe ee es aes a Se ee es ee ee ae ee eee a a SC EE SS LSS SS 


FuUNCE LON GETS Tans 
( SYS STATUS => SYSTEM STAnUe, 
SENSER >: SENSOR ) return STAlUewes 


begin 


case SENSER is 

when LINK => 

return SYS. STATUS. LINK SPAanlus, 
when GPS => 

return SYS “STATUS GeoncPanucy 
when RADAR => 

return SYS STATUS -RADAR SIAL. 
when PITSWORD => 


244 


meeurn SYS STATUS.PITSWORD STATUS; 
when GYRO => 

Memurn SYS STATUS.GYRO STATUS; 

when FATHOMETER => 

Mer oo oLATUS.PATHOMETER STATUS; 
end case; 


end GET STATUS; 


Pmocedure SET STATUS 

Mero DLATUS > Out SYSTEM STATUS; 
SeNsohR : in SENSOR; 

UP_DOWN : in STATUS ) is 


begin 


case SENSER is 
when LINK => 


SYS STATUS.LINK STATUS := UP_DOWN; 
when GPS => 

moo SLATUS.GPS STATUS := UP_DOWN; 

when RADAR => 

SYS _STATUS.RADAR STATUS := UP DOWN; 

when PITSWORD => 

pee oTATUS.PITSWORD STATUS *= UP_DOWN; 
when GYRO => 

eo oLATUS.GYRO STATUS := UP_DOWN; 

when FATHOMETER => 

SYS STATUS.FATHOMETER STATUS := UP_DOWN; 


end case; 


Poe skl STATUS; 


* ee e© e® © © & © © & © © & © © © ee © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © © £& © © © © © © © &F © © © © © BG © © F&C FF 8 


end SYSTEM STATUS PKG; 
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APPENDIX T 


NAVIGATION PACKAGE 


mc a ers cs rr re cr a a cr mr rs cr cr 
SS. SSS ESS TSS TSS TSS TFS TSS TFS TSS OS88S Oe i 8S SS eS ie ele ee i ec cr cr cr cr ce cr cr ce cc ce ce ee ee ee a 


—-—- Authors : Richard T. Irwin 
-- Willie K. Bolick 


== Date 9 Z2omawoiicmee so 


Ce ee er ee) 


-- Description 3 Defines) funer tem Chl tGr wee a 


i a i 
eee a I a 


with GLOBAL OBSERVATION PKG, TEXT IO, GLOBAL POSITION PKG, 
ABSOLUTE _TIME PKG, VECTOR_2_ PKG; 


use GLOBAL OBSERVATION PKG, TEXT IO, GLOBAL POSITION PKG, 
ABSOLUTE_TIME PKG, VECTOR 2 PKG; 


package NAVIGATION PKG is 


—-— Returns current OWNSHIP’ Ss pecmeten Fromme] 
function GET_GPS UPDATE return GLOBAL OBSERVATION; 


pragma INLINE ( GET GPS UPDATE ); 
end NAVIGATION PKG; 
package body NAVIGATION PKG is 

function GET_GPS_ UPDATE return GLOBAL OBSERVATION is 


CHAR : CHARACTER; 
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THE FILE : FILE TYPE; 


Pere PNG eeOULEAN >= PALSE; ——- Start Character ‘[* found, 
=- reading pOSition data 

wwebeG, =-— Degrees of latitude 

LONG DEG,-- Degrees of longitude 

meen, —~ Minutes of latitude 

BeNG MIN,-- Minutes of longitude 

MeeeonCcC, —— Seconds of latitude 


meG SEC : NATURAL;-- Seconds of longitude 

meeMiN Flh,;—-— GPS output of latitude minutes 

mevG MIN FL : FLOAT;-—-— GPS output of longitude minutes 

LAT DIR : NORTH SOUTH;-- North/South latitude 

LONG DIR : EAST WEST;-- East/West longitude 

OWN OBS : GLOBAL OBSERVATION;-- Returned position after conversion 


package NATURAL INOUT is new INTEGER IO ( NATURAL ); 
package FLOAT INOUT is new FLOAT IO ( FLOAT ); 

package N_S INOUT is new ENUMERATION IO ( NORTH SOUTH ); 
package E W_INOUT is new ENUMERATION IO ( EAST WEST ); 
use NATURAL INOUT, FLOAT _INOUT, N_S INOUT, E W INOUT; 


begin 


memopen Ro-232 comm port connected to GPS 
OPEN ( THE FILE, IN FILE, NAME => “/dev/ttya” ); 


ieoo —— Until position data 18 fully read in 
eel THE FILE, CHAR ); —=— Read the next cNaracter from the GPS string 
eet htNGerwen -—- If Stare Character not yet found 
MmecHAR — ~“[» then -— Start character found 
Pe stRING :— TRUE; 

end if; 
else -- Start character has been found 

-- $kip over next 29 characters, irrelevant data 


femal 2 te 2o loop 
set ( THE FILE, CHAR ); 
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end loop; 


-- Get data that pertains to OWNSHIP’s GLOBAL POSITION 
GET ( THE FILE, LAT DEG, 2 ); 


GET ( THE Fite, seneew 
GET ( THE FILE, LAT MIN FL, 7 ); 
GET ( THE FILE, LAT _DIR ); 


( 
( 
( 
GET ( THE FILE, CHAR ); 
( 
( 
( 
( 


GET ( THE FILE, LONG DEG, 3 ); 
GET ( THE FILE, CHAR ); 

GET ( THE FILE, LONG MIN FL, 7 ); 
GET ( THE FILE, LONG DIR ); 


-— Close the comn pore 
CLOSE ( THE FILE); 


-- GPS does not send minutes and seconds, but rather sends minutes as 
-- a floating point number. The 4 statements below convert that 

-- floating point number to minutes and seconds aS required Go eee 
-— GLOBAL FPOSlt Tien. 


LAT MIN := NATURAL ( LAT MIN FL - 0.5 ); 

LAT SEC := NATURAL ( ( LAT MIN FL - FLOAT ( LAT MIN ) ) * 
60.0 - 0.5 ); 

LONG MIN := NATURAL ( LONG MIN FL - 0.5 ); 

LONG SEC := NATURAL ( ( LONG MIN FL - FLOAT ( LONG MIN ) ) * 


60.0 —M0es.) 


-- Fill the GLOBAL OBSERVATION record with (iewaee vp oomenom, 
—-- current system time, and a course and speed of 0.0, 0.0. 
-- Procedures to calculate actual course and speed are found 
-- in TRACK PKG. 
OWN_OBS.POSITION := MAKE GLOBAL POSITION 

( LAT_DIR, LAT DEG, LAT MIN, LAT SEC, 

LONG_DIR, LONG DEG, LONG MIN, LONG SEC ); 

OWN _OBS.OBSERVATION TIME := NOW; 
OWN_OBS.COURSE AND SPEED := MAKE CARTESIAN VECTOR 2 ( 0.0, 0.0 ); 


PetuEn OWN Tes; 


end if; 
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GPS UPDATE; 


- . @ 6 
TIGATION_PKG; 


APPENDIX U 


M_SERIES_ MSG_PACKAGE 


mm mr mr wr rm cm a a a a en ee ee es ee oe 
= aS ee ee SS SS SS SS ee ee ie a Si i. i iL SS i iS iS SS i SS 8 i.) SE ES ES EE ee ee a a a SS SS SS SS SS SS 


~- Authors : Richard T. Irwin 
-- Willie K. Bolick 


a 


-- Date : 29 August 1991 
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—- Description ; Defines abstract data types Miser iz ogc, 
M SERIES MSG BUFFER 


-~ and their associated functions and procedures 


package M SERPS BMG a. 
type M SERIES MSG is private; 
type M SERIES MSG BUFPER momo arc, 


-- Reads in an individual M SERIES MSG from the LINK processor 
procedure GET M SERIES MSG FROM LINK 
( MSG = Outs MeonR IES yMsG ar, 


-- Loops until START TRANSMISSTONMsa gna 2S essence omen lpetie 

-- Once START TRANSMISSION signal” foumer 

-—- calls GET_M_ SERIES MSG FROM LINK until END TRANSMISSION 

== Signal veound: 

-- Each M_SERIES MSG retrieved is appended to M SERIES MSG BUFFER 
procedure FILL M SERIES MSG BUFFER 

( MSG BUFF : out M_ SERIES MSG BUFFER ); 


20) 


mepoene LUNCE1OnS/procedures to retrieve M SERIES MSG, 
Seca Ribo MSG BUPFER record items to be completed in 


-- follow-on thesis work 
private 
mype M SERIES MSG is 
record 
oS to be completed in follow-on thesis work 


end record; 


mype MOSERIES MSG BUFFER is 
> some data Structure of M SERIES MSG types 


end M SERIES MSG PKG; 
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APPENDIX V 


PROCESS_LINK_TRACK_ PACKAGE 


ce a a a a a a a a a we ee ee ee ee ee ee ee ee Ce 
SS SS OS DS EDS SS a ES ie i LS ES LES LSE LEE OEE LE LEE a_i ee ee ee ee ee ee ee 
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—- Description :; Detines procedure PROCHO oe Gee Ure tierce ecas 
-— PROCESS LINK TRACKS 


ee a a a wa aS ee 
ee i ee a Ss i SE ES 8 EF SS LS eS 


with INTEGRATION SYSTEM PKG, M SERIES MSG PKG, LINK PKG, TRACK PKG, 
SYSTEM STATUS PKG; 


use INTEGRATION SYSTEM PKG, M SERIES MSG PKG, LINK PKG, TRACK PKG, 
SYSTEM STATUS PKG; 


package PROCESS LINK TRACKS Se hGaae 


procedure PROCESS MSG BUFFER 
( MSG BUFF > an M SERIES MSGQBUDE ERs), 


task PROCESS LINK TRACKS; 


end PROCESS LINK TRACKS PKG; 


package body PROCESS LINK TRACKS PKG is 
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procedure PROCESS MSG BUFFER 
( MSG BUFF : in M SERIES MSG BUFFER ) is 


begin 

—— Uses procedures/functions in LINK PKG, TRACK PKG to 
meeorcak Gown MSG BUFF into individual M SERIES MSGs and 

=—- convert them to link TRACKS, altering/adding them to the 
epee DATABASE as necessary ( using INTEGRATION SYSTEM 
menechtry calls ) 

Semel ROCESS MSG BUFFER; 


eon WOdyY PROCESS LINK TRACKS is 


MSG BUFF : M SERIES MSG BUFFER; 
SENSER STATUS : STATUS; 


begin 
loop 


-- Get synch signal from INTEGRATION SYSTEM PKG.LINK CYCLE 
LINK_CYCLE.START LINK UPDATE; 


-- See if there’s anything to process 
Pa eGReT TON TSYSTEM. Gh SENSOR STATUS ( LINK, SENSER STATUS ); 


if SENSER STATUS = UP then 


—--— Get the msg buffer 
ooo Me SERIES MSG BUPFER ( MSG BUFF ); 


—-- Process the buffer into separate msgs and possibly LINK TRACKs 
PROCESS MSG BUFFER ( MSG BUFF ); 


ema it; 


ence Loop; 


exception 


J: 


when STATUS ERROR | CONSTRAINT ERRORS 
INTEGRATION SYSTEM.SET SENSOR STATUS ( LINK, DOWN ); 


end PROCESS LINK TRACKS; 


end PROCESS LINK TRACKS PKG; 
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APPENDIX W 


RELATIVE_TIME_PACKAGE 


a a a a i i a a a ns a rr rm a a rs ee ee ee ee ee ee ee ee ee ee 
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Sem esectiption : Defines data type RELATIVE TIME and associated 
Pinections 


mm a mr rm rr mr a i rr a a a oe ee ee ee oe oe eC Ce ee ee Ce ee ee 
te en. ee ee 


peekage RELATIVE TIME PKG is 
emieeype RELATIVE TIME is FLOAT; —- Units : seconds 


--Returns total seconds, given hours, minutes, seconds 
function MAKE RELATIVE TIME 

[eHOURS, MINUTES : NATURAL; 

meee NDS ; FLOAT ) return RELATIVE TIME; 


=— Returns whole hours of a day, given seconds of a day 
fame: ton HOURS 
( T : RELATIVE TIME ) return NATURAL; 


-- Returns whole minutes of an hour, given seconds of a day 
mineeLon MINUTES 


(rl: RELATIVE TIME ) return NATURAL; 


-- Returns seconds of a minute, given seconds of a day 
mince Lon SECONDS 


AOS, 


( T : RELATIVE TIME ) return kee; 


pragma INLINE ( MAKE RELATIVE TIME, HOURS, MINUTES, SECONDS ); 


ena RELATIVE TIMEREEG, 


ee cr rn ee ee oe a 
= ee oe oe oe or ee ee ee a ec ce ee ee ee ee ee ee ee 


== Authors < Richard Teepecin 
—— Wilinae Ky Bolick 


== Date + 29 August ea 


cm em a ss a ie i a a ee ee oe ee ee 
— ee ee ee ee eee ee ee es a a ae aes aes ae ee ee ae a i i i 


function MAKE RELATIVE TIME 

( HOURS, MINUTES : NATURAL; 

SECONDS : FLOAT) Sierra hein) i) herr ees 
begin 


return FLOAT ( HOURS * 3600 ) + FLOAT ( MINUEE >) 3008) 3) eco. 


end MAKE RELATIVE TIME; 


function HOURS 
(oe RELATIVE TIME ) return NATURAI@Ts 


begin 


return NATURAL ( T / 3600803 Ue om 
end HOURS; 
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Ce ee eo eS ee Se S's Oo @ OC Ce eee Oe eel = « « © s «© @ © # = 


omer Lon MINUTES 


ie hoi eI return NATURAL «as 


begin 


meveom NATURAL { { IT — RELATIVE TIME ( HOURS ( T ) * 3600 ) ) / 
pee -— 0.5 ); 


end MINUTES; 


momection SECONDS 


mele. RELATIVE TIME ) return FLOAT is 


begin 


return T -—- FLOAT ( HOURS (T ) * 3600 ) 


= PLOAT MrnNvthce t=) = 60 ); 
end SECONDS; 


oe ee & © © © & & &£ © FF 8 © Fe ee © Fe ee Fe © Fe Fe © F +©F fF © © ee © ve ee ee ee ee ee eh Ohm hhUCUh OhmhUCUc OrmhlUcrhUlUcOChUlCcOClc Ol Ohl OOhUlUchChUhOhUcrhO PO OO OH ee ehh thlUlUcr CU OhlUh MMU OCU Cl 


Smee nGLATIVE TIME PKG; 
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APPENDIX X 


GPS CONNECTION CONSIDERATIONS 


The connection between the Global_ Positioning Subsystem (Trimble 4000) and the 
SUN Microstation SPARCstation 2 is with a cable using the RS-232 port on the Trimble 
4000 and Comm-port | on the SPARCstation. A proper setup of the connectors pins at each 
end of the cable is necessary to insure data transfer. The proper setup follows: 

Trimble 4000 RS-232 connector pins (See Figure 20): 

GROUND:= GROUND; 
TXDGENB)—=SENB: 
RXD(RECEIVE):= BLANK (no pin); 





RS-232 Connector 


Figure 27: GPS CONNECT 


SPARCstation Comm-port 1: 
GROUND:= GROUND; 
TXD(SEND:= BLANK (no pin); 
RAD(RECEIVE):=RECEI a= 
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The network configuration in this case 1s simply a DTE setup in the Trimble 4000 and 
a DCE in the SPARCstation. This setup is necessary because the Trimble 4000 will shut 
down with an interrupt, if the SUN, via the RXD pin sends a “ready to receive” signal 


accommodating the Trimble 4000 PROTOCOL. 
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